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ABSTRACT 

This  thesis  describes  the  conversion  of  four  computer  programs  on  the  Naval  Post- 
graduate School  IBM  3033AP  computer  system  and  their  implementation  on  the 
MicroVax  2000  CAD  CAE  workstation.  The  existing  2-D  airfoil  analysis  programs 
DUBLET  and  PANEL  were  extensively  modified  to  improve  the  user  interface.  The  3-D 
wing  analysis  program  VORLAT  also  received  an  updated  interface.  The  JEl  FLAP 
source  program  no  longer  resided  on  the  NTS  mainframe  and  was  reconstructed  from 
an  original  source  tape  and  program  listing.  This  program  was  then  converted  from 
FORTR.-\N  IV  for  the  CDC  6000  series  computers  to  FORTRAN  77  for  use  on  the 
IBM  mainfranic  and  the  VlicroVAX  2000.  An  interactive  data  input  program, 
JETFLAPIN.  was  devc.opcd  to  simphfy  data  input,  provide  error  checking  and  cor- 
rection and  thereby  enhance  the  utilization  of  the  JETFLAP  program.  The  programs 
are  intended  for  use  by  students  in  basic  and  ad\anced  courses  in  aerod}"namics  at  the 
Naval  Postgraduate  School,  however  they  are  also  applicable  to  a  course  in 
computaional  aerod}'namics. 
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THESIS  DISCLAIMER 

The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may  not 
have  been  exercised  for  all  cases  of  interest.  While  every  effort  has  been  made,  within 
the  time  available,  to  ensure  that  the  programs  are  free  o[  computational  and  logic  er- 
rors, they  cannot  be  considered  validated.  Any  application  of  these  programs  without 
additional  verification  is  at  the  risk  of  the  user. 
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II.     INTRODUCTION 

Current  aerodynamic  analysis  relies  heavily  upon  numerical  methods  for  estimating 
the  aerodynamic  coefficients  of  airfoils  and  wings.  This  thesis  was  undertaken  to  provide 
the  students  of  the  aeronautical  engineering  curriculum  with  a  series  of  computer  pro- 
grams that  would  give  them  a  better  appreciation  and  understanding  of  several  compu- 
tational methods  that  have  been  applied  to  classical  aerodynamic  theor\'. 

The  Department  of  Aeronautics  and  Astronautics  at  the  Naval  Postgraduate  School 
(NPS).  in  conjunction  with  the  Mechanical  Engineering  Department,  is  developing  a 
computer-aided  design  computer-aided  engineering  (CAD'CAE)  laboratory  for  use  in 
research  and  teaching  by  their  respective  curriculums.  The  system  is  based  on  a  network 
of  Digital  Equipment  Corporation  (DEC)  Micro\'AX  2000  workstations.  There  is  an 
ongoing  requirement  to  provide  specialized  software  (programs)  for  the  computer  net- 
work that  is  usable  by  the  students  and  staff  to  support  current  and  future  courses  and 
research. 

At  the  time  of  this  writing,  several  aerodynamic  analysis  programs  reside  on  the  NPS 
IBM  3033AP  mainframe  computer.  They  are  in  various  states  of  repairl  and  due  to 
constant  software  and  hardware  upgrades  of  the  mainframe  system  some  programs 
provide  limited  output  capabilities^  while  others  are  becoming  unusable  due  to  compiler 
changes.  There  is  also  a  wide  range  in  the  amount  and  quality  of  the  documentation 
available  for  each  program.  This  thesis  seeks  to  remedy  a  portion  of  this  problem  and 
support  the  previously  mentioned  software  needs  requirement  by  providing  a  set  of 
baseline  programs  and  thorough  documentation  which  will  extend  the  life  of  these  val- 
uable programs  and  allow  further  upgrades  and  eventual!}'  the  incorporation  of  graphics 
routines  by  future  users. 

The  programs  contained  in  this  work  were  selected  on  the  basis  of  their  apphcabihty 
to  the  present  courses  taught  in  basic  and  advanced  aerodynamics  at  NPS,  the  doc- 
umentation available  and  previous  user  inputs.    They  were  revised  or  modified  with  the 


1  Source  code  is  not  available  for  some  programs,  in  particular  FL027.  Since  certain  output 
flags  for  FL027  were  set  in  the  source  code  and  the  user  was  unable  to  alter  these,  an  inordinate 
amount  of  unwanted  output  was  produced. 

2  Several  programs,  notably  FL027,  JETFLP  and  those  used  in  the  Aircraft  Combat 
Sur\'ivabilit\  and  Lethality  courses  have  lost  their  graphical  output  due  to  software  incompatibility 
problems. 


intent  that  they  be  used  for  preUniinary  design  and  to  evaluate  the  changes  in  aero- 
dynamic coeflkients  due  to  changes  in  one  or  more  of  the  input  parameters.  To  this 
end.  the  following  factors  were  empasized  in  modifying  or  creating  the  programs  to  make 
them  easilv  understood  and  utilized: 


Error  checking  correction  capability. 

CapabiUty  to  make  multiple  runs  in  one  session. 

Capability  to  change  one  or  more  parameters  on  subsequent  runs. 

Utilize  a  standardized  interface  (to  the  extent  possible). 


•    Allow  user  defined  names  for  input  output  files. 

This  document  briefly  describes  the  basic  theory  behind  the  2-D  airfoil  and  3-D  wing 
analysis  programs  and  the  reprogramming  required  for  transfer  and  conversion  of  the 
selected  programs  from  the  IBM  3033 AP  and  CDC  6000  series  computers  to  the 
MicroVAX'2000  CAD  CAE  workstation. 

A  users  manual  foi  each  program  is  contained  in  the  appendices.  These  provide  a 
short  discussion  on  the  purpose  of  the  program,  input  requirements  and  constraints, 
program  operation  and  the  program  output.  A  sample  input  session,  input  data  file  (if 
required)  and  the  resulting  output  as  well  as  a  complete  program  listing  is  also  included. 

Project  results  and  recommendations  for  future  work  are  given. 


III.     BASIC  THEORY  OF  2-D  AIRFOIL  ANALYSIS  PROGRAMS 


A.     INTRODUCTION 

The  following  sections  are  intended  to  present  the  reader  with  a  basic  understanding 
of  the  ideal  fluid  flow  concepts  underlying  the  2-D  airfoil  analysis  programs.  This  brief 
summar}'  contains  just  a  few  highlights  which  would  be  obtained  from  a  course  in  the 
fundamentals  of  aerodynamics  and  in  no  way  attempts  to  provide  the  reader  with  a  firm 
foundation  in  aerodynamics  or  fluid  flows. 

It  will  be  assumed  that  the  reader  is  familiar  with  the  concepts  of  velocity  potential, 
0,  stream  function,  \p,  and  their  derivatives.  It  is  further  assumed  that  the  reader  has 
some  familiarity  with  the  concepts  of  the  basic  fluid  flows:  uniform  stream,  source,  sink, 
vortex  and  doublet.  Figure  1  depicts  these  basic  fluid  flows  and  provides  and  example 
o[  how  two  of  these  flows,  a  uniform  stream  and  a  doublet,  may  be  combined  to  model 
the  flow  over  a  cylinder.  A  thorough  discussion  of  these  flows  and  their  properties  may 
be  found  in  most  aerodynamics  texts.  References  1,  2,  3  and  4  were  instrumental  in  the 
preparation  of  the  following  sections. 


Uniform  stream 


Vorif  X  of 
slrenfrth  T 


Source  flow 


Sink  flo» 


Unilorm  (low 
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Flow  over  a  cylinder 


Figure   1.       Basic  Fluid  Flows 


B.     PROGRAM  DUBLET 

The  type  of  analysis  used  here  is  a  direci  method  in  which  the  shape  of  an  ellipsoid 
or  airfoil-like  body  is  specified  and  the  problem  is  to  solve  for  the  distribution  of 
singularities  which,  in  combination  with  a  uniform  stream,  produce  the  flow  over  the 
body. 

This  program  provides  a  numerical  method  for  approximating  the  solution  of  the 
integral  equation  for  the  hne  doublet  distribution  for  a  symmetrical  airfoil  at  zero  lift  in 
incompressible  irrotational  flow.  With  the  doublet  strength  known,  the  velocity  field  can 
be  determined  using  equations  for  the  stream  function  and  velocity  potential.  Once  the 
velocity  field  is  known,  the  pressure  field  may  be  determined  using  the  Bernoulli 
equation. 

For  this  problem  the  airfoil  body  shape  is  specified  as>'  =  Vx).  It  is  a  closed  form 
which  has  a  finite  length  or  chord,  c  as  shown  in  Figure  2. 


Figure  2.       An  Airfoil-like  Shape 


Such  a  shape  can  be  defined  by  an  equation  of  the  form: 


/  -V 


Y{x)  =  AJ^{c-x) 


V    C 


(1) 


This  shape  is  to  be  modeled  by  a  string  of  doublets  along  the  x  axis,  and  the  strength 
of  each  doublet  to  be  determined.  The  solution  is  required  to  meet  the  fiow  tangency 
condition  and  the  doublets  are  required  to  be  within  the  body. 

Since  thin-airfoil  theor>-  fails  near  the  stagnation  points  and  it  is  not  physically 
possible  for  the  source  distribution  to  extend  to  the  ends  of  the  body  and  still  meet  the 


flow  tangency  condition,  there  must  exist  a  finite  distance  between  the  ends  ofthe  source 
distribution  and  the  stagnation  points. 

This  distance  is  determined  by  approximating  the  shape  of  a  blunt-nosed  airfoil  near 
its  nose,  x  =  0.  as  parabolic.  Using  thin-airfoil  theor\'  and  the  radius  of  curvature 
(Figure  3).  the  source  strength  near  the  leading  edge  of  the  source  distribution  can  be 
approximated.  Applying  this  approximation  and  the  requirement  that  the  source- 
induced  velocity  must  cancel  that  of  the  onset  flow  at  the  stagnation  point,  it  can  be 
shown  [Ref.  1  pp. 52-54],  that  the  separation  distance  between  the  stagnation  point  and 
the  leading  edge  ofthe  source  distribution  is  approximately  half  the  radius  of  curvature 
ofthe  nose  ofthe  body.   A  similar  analysis  holds  for  the  other  end  ofthe  body. 
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Figure  3.       The  Radius  of  Curvature  of  a  Leading  Edge 


The  program  DUBLET  incorporates  the  half  radius  of  curvature  inset  and  satisfies 
the  fiow  tangency  requirements  using  an  iterative  approach.  This  is  done  by  taking  an 
approximation  to  the  proper  inset,  solving  the  set  of  simultaneous  equations  for  the 
doublet  strength  distribution  which  satisfies  the  fiow  tangency  condition  and  then  eval- 
uating the  resulting  velocity  at  the  stagnation  points.  If  the  velocity  is  not  sufiTicicntly 
close  to  zero,  the  estimated  values  are  revised  and  the  process  is  repeated.  The  iterative 
approach  used  is  an  interval-halving  or  bisection  method  of  root-finding  similar  to  thai 
described  in  Ref.  5. 

A  more  complete  development  of  the  thin-airfoil  theory  and  the  underlying 
equations  used  to  derivi  this  method  are  detailed  by  Moran  [Ref.  1]. 


C.     PROGRAM  PANEL 

This  analysis  again  uses  the  dircci  method  to  solve  for  the  proper  distribution  of 
singularities?  on  a  bod}'  which,  in  combination  with  a  uniform  stream,  provide  the  flow 
over  the  body. 

This  program  uses  a  numerical  approach  to  provide  an  approximation  to  the  sol- 
ution of  the  integral  equation  for  the  source  and  vortex  distribution  on  the  surface  of  a 
lifting  body  in  incompressible  irrotational  flow.  It  is  specifically  designed  to  evaluate 
NACA  four-  digit  airfoils  and  NACA  five-digit  airfoils  of  the  230XX  series;  however 
provisions  are  made  within  the  program  for  entr>'  of  any  arbitrary'  airfoil  shape. 

The  following  presents  some  reasons  for  and  a  brief  development  of  the  panel 
method.  Although  thin  airfoil  theory  gives  reasonably  good  results  for  lift  and  moment 
coefTicients,  it  ignores  the  elTect  on  those  coefficients  of  the  thickness  distribution.  In 
addition,  thin  airfoil  theor)'  gives  good  pressure  distribution  results  only  away  from  the 
stagnation  points.  Since  proper  design  of  an  airfoil  requires  an  accurate  prediction  of 
its  pressure  distribution,  more  powerful  methods  are  based  on  the  distributions  o{^ 
sources  and  vortices  or  doublets.   This  is  empasized  by  Moran  when  he  states 

"To  avoid  the  inaccuracies  of  thin-airfoil  theon.',  the  flow-tangency  condition  must 
be  satisfied  on  the  body  surface  and. ..the  singularities  should  be  distributed  on  the 
body  surface  rather  than  on  the  chord  line  or  any  other  line  within  or  without  the 
bodv." 

To  achieve  this  placement  of  the  singularities  on  the  body,  the  body  surface  is  ap- 
proximated by  a  collection  of  straight  line  panels.  This  form  of  surface  approximation 
is  where  the  panel  method  receives  its  name.  Program  PANEL  uses  a  solution  method 
based  on  sources  and  vortices  distributed  on  these  surface  panels. 

The  potential  for  this  flow  may  be  described  as 

</'  =  </'oo  +  </>s+^r  (2) 

where  <i)^  is  the  potential  of  the  uniform  onset  flow,  wliich  can  be  written  in  a  Cartesian 
system  as 

<^co  =  ^^oo-^  cos  a  -f  V^^  sin  a  (3) 


3  "Singularities"  is  used  here  as  a  generic  term  for  sources,  vortices,  doublets  and  other  funda- 
mental solutions  of  the  Laplace  equation  that  blow  up--are  "singular"--at  some  point  outside  the 
flow  field. 


where  f'^  is  the  velocity  of  the  uniform  flow,  and  a  is  the  angle  between  the  flow  direc- 
tion and  the  .y  axis.    Tlie  remaining  potential  terms  are  defined  as 
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in  which  the  integrations  are  over  the  body  surface.  This  defmes  ^5  ,  as  the  potential 
of  a  source  distribution  of  strength  q{s)  per  unit  length  and  </)^,  ,  as  the  potential  of  a 
vortex  distribution  of  strength  y{s]  per  unit  length.  Figure  4  shows  that  5  is  the  distance 
measured  along  the  surface  from  some  arbitrary  reference  point--m  this  case  the  leading 
edge  has  been  chosen--to  the  '"field  point",  (.v^\-)  ,  or  (r,  0)  in  polar  coordinates. 


yk 


ix.y) 


Figure  4.       Nomenclature  for  the  Analysis  by  the  Panel  Method 

We  seek  a  solution  where  q[s)  and  y{s)  are  determined  so  as  to  meet  the  boundar>'  con- 
dition of  flow  tangency  and  the  Kutta  condition.  The  latter  is  the  requirement  that  the 
stagnation  point  be  at  the  trailing  edge-*. 

The  view  of  this  problem  taken  by  Hess  and  Smith  [Ref  6]  is  that  the  source 
strength  governs  the  flow  tangency  condition  and  the  Kutta  condition  governs  the 


4  All  airfoils  considered  here  are  assumed  to  have  sharp  trailing  edges. 


vortex  strength^.  They  make  the  simplifying  assumption  that  the  vortex  strength  is 
taken  constant  over  the  whole  airfoil,  i.e.  y{s)  =  y  ,  and  justify  this  by  reasoning  that, 
since  the  Kutta  conditicn  governs  the  vortex  strength,  and  the  Kutta  condition  mvolves 
only  the  trailing  edge,  then  the  vortex  strength  can  be  represented  by  a  single  number. 
Conversely,  the  source  strength  must  vary  over  the  surface  to  allow  the  flow  tangency 
condition  to  be  satisfied  at  all  points  on  the  body  surface. 

The  integrals  of  equations  (4)  and  (5)  are  difficult  to  evaluate  unless  the  surface  on 
which  the  singularities  are  distributed  is  a  straight  line.  This  is  where  the  surface  panels 
come  into  play.  The  body  is  divided  up  into  a  set  of  panels  by  selecting  a  set  of  .V  points, 
called  nodes,  which  are  then  connected  by  straight  lines.  This  results  in  an  approxi- 
mation of  the  body  composed  of  .V  nodes  and  panels  as  shown  in  Figure  5. 


Figure  5.       Definition  of  Nodes  and  Panels 

The  sources  and  vortices  are  distributed  on  the  straight  line  panels  and  the  constant 
vortex  strength  assumption  is  incorporated  so  that  the  potential  given  by  equation  (2), 
as  developed  in  equations  (3)  through  (5),  may  be  written  as: 


4>  =  f^co-^  cos  a  +  V^v  sin  a  +  / 


V       /•        r 


q(s) 


Inr- 


panel  _ 


ds 


(6) 


5  In  actuality,  both  singularity  distributions  are  important  in  satisfying  either  condition. 


To  allow  evaluation  of  the  integrals  in  equation  (6),  the  source  strength  is  taken  to 
be  constant  on  each  panel,  but  allowed  to  vary  from  panel  to  panel,  i.e. 

q{s)  =  (ji  on  panel  /,     i—  1,...,.V  (7) 

The  parameters  to  be  determined  are  then  the  A'  source  strengths  q,  and  the  single 
vortex  strength  y.  These  are  found  by  imposing  the  flow  tangency  condition  at  A'  control 
points  and  a  corollary  to  the  Kutta  condition  which  states.  "Near  the  trailing  edge,  the 
flow  speeds  on  the  upper  and  lower  surfaces  of  the  airfoil  are  equal  at  equal  distances 
from  the  trailing  edge."(Ref  1] 

Moran  [Ref  1]  prcides  a  clear  explanation  of  the  geometric  development  of  the 
problem  and  the  resulting  set  of  A'  +  1  equations  in  the  unknowns  q,,  i  =  l....,A',  and 
y.  This  leads  into  a  discussion  regardmg  the  development  of  a  FORTR.A\  program  that 
uses  the  panel  method.  Program  PANEL  sets  up  and  solves  this  set  of  equations.  The 
tangential  velocity  at  the  midpoint  of  each  panel  is  then  evaluated  and  its  associated 
pressure  coeflicient  C,,  is  calculated.  By  assuming  the  latter  to  be  constant  over  each 
panel,  the  estimated  lift  and  moment  may  then  be  calculated. 
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IV.     BASIC  THEORY  OF  3-D  WING  ANALYSIS  PROGRAMS 

A.     INTRODUCTION 

As  discussed  in  the  previous  section  on  2-D  airfoil  theory,  there  are  several  ways  to 
model  the  source  of  forces  acting  on  a  body  surrounded  by  a  moving  fluid.  These  in- 
cluded potential  functions,  vortex  distributions,  circulation  distributions  and  pressure 
differential  distributions.  These  models  are  related  to  one  another  and  each  has  advan- 
tages and  disadvantages.  Both  of  the  following  programs.  VORLAT  and  JETFLAP,  rely 
on  a  distribution  of  discrete  horseshoe  vortices  to  model  the  flow  over  a  wing. 
1.     The  Horseshoe  Vortex 

To  provide  the  reader  v/ith  an  understanding  of  the  theorv*  behind  the  VORLAT 
and  JETFLAP  programs,  it  is  necessary  to  explain  what  a  horseshoe  vortex  is  and  what 
properties  it  has.  References  1,  2,  and  3  provided  a  basis  for  much  of  the  material  con- 
tained in  this  section. 

The  idea  of  th-  horseshoe  vortex  was  developed  by  Prandtl  and  Lanchester 
while  trying  to  provide  a  simplified  model  of  the  ideal  flow  over  a  wing.  Prandtl  rea- 
soned that  a  vortex  fllam'^nt  of  strength  F.  bound  to  a  flxed  location  in  a  flow-a  bound 
vortex--will  experience  a  force  L  =  p^l'^r  from  the  Kutta-Zhukovsky  theorem.  To 
satisfy  Helmholz'  theorem  which  states  that  a  vortex  filament  cannot  end  in  a  fluid,  the 
vortex  filament  continues  as  two  free  vortices  extending  downstream  from  the  wing  tips 
to  infinity.  The  construction  of  this  vortex  is  in  the  shape  of  a  horseshoe  and  it  is 
therefore  called  a  horseshoe  voriex.  It  is  correctly  pointed  out  ho\\ever  by  Zucker  that. 
"...the  word  "horseshoe",  although  in  common  usage,  is  misleading  since  these  filaments 
are  actually  "closed"  back  at  the  place  where  the  motion  originated. "[Ref  3] 

As  shown  in  Figure  6,  the  vdng  is  replaced  by  a  "lifting  line"  perpendicular  to 
the  flight  direction  and  located  at  the  quarter-chord,  with  the  two  free  vortices  trailing 
from  the  wing  tips. 
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Replace  finilf 
wing  with 
bound  vorlfx 


—     Fref-trjiling  vortex 


Finite  wing 


Free-trailing  vortex 
Hoi^e&hoe  vortex 


Figure  6.      Replacement  of  the  Finite  \^  ing  nith  a  Bound  \orte\  [Ref.  2] 

This  model  did  not  provide  a  ver\-  realistic  simulation  of  the  downwash  distrib- 
ution of  a  finite  wing;  especially  near  the  tips  where  the  predicted  dowmvash  approaches 
an  infinite  value.  The  dowmvash  distribution  as  a  function  of  the  span,  u-(^;-).  is  shown 
in  PTcure  7. 
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Figure  7.      Do>>n\\ash  Distribution  Along  v  Axis  for  a  Horseshoe  Vortex  [Ref.  2J 
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An  iinprovemcnt  on  this  model  was  the  "lifting  Unc"  moJcl  which  superimposed 
a  large  number  of  horseshoe  vortices,  each  with  a  dilTerent  length  of  bound  vortex,  but 
with  all  the  bound  vortices  lying  along  a  single  line.  This  is  depicted  in  T-igure  S  which 
has  three  horseshoe  vortices  of  strengths,  AT,,  AT,  and  AFj.  The  variation  ofF  along 
the  lifting  hne  is  denoted  by  the  vertical  bars.  Since  L  oc  F,  this  is  also  an  indication  of 
the  lift  distribution.  It  should  be  noted  that  the  strength  of  each  trailing  vortex  is  equal 
to  the  change  in  circulation  along  the  lifting  line  at  the  point  where  the  trailing  vortex 
starts. 


Figure  8.      Superposition  of  Three  Horseshoe  \  ortices  Along  a  Lifting  Line  [Ref.  2] 

This  model  is  good  for  high  aspect  ratio  straight  wings  and  provides  an  excellent 
prediction  of  spanwise  loading  and  overall  Uft.  It  cannot  however,  produce  chordwise 
pressure  distributions  and  moment  data. 

To  deal  with  lew  aspect  ratio  straight  wings,  the  model  is  extended  by  placing 
a  series  of  lifting  lines  on  the  plane  of  the  wing  at  different  chordwise  stations,  all  parallel 
to  thej  axis.  In  the  limit  of  an  infinite  number  of  these  lifting  lines,  we  obtain  a  vortex 
sheet,  where  the  vortex  lines  run  parallel  to  the  j  axis.  The  strength  of  the  sheet  per  unit 
area  is  denoted  by  y,  where  the  latter  varies  in  the  j  direction  in  a  manner  analogous  to 
the  variation  of  F  for  the  single  lifting  line.    In  addition,  each  hfting  hne  will  have,  in 
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general,   a  difTerent   o\erall   strength,   so   that   )■   also   varies  with  x.      This   relation, 
y  =  ■/(•^\'")  is  shown  in  Figure  9. 


Figure  9.      Schematic  of  a  Lifting  Surface  [Ref.  2] 

This  vortex  sheet  results  in  a  llfiing  surface  distributed  over  the  entire  planform 
of  the  wing.  The  strength  of  the  lifting  surface  at  any  point  on  the  surface  is  given  by 
>'  =  vi-'^x}')-  The  aim  of  the  lifting  surface  theory  is  to  find  yl.vj-)  such  that  the  fiow- 
tangency  condition  is  satisfied  at  all  points  on  the  wing. 

For  computational  purposes  the  planform  is  di\ided  into  a  finite  number  of 
square  or  rectangular  panels  and  the  //th  panel  chosen  for  initial  computation.  The 
spanwise  vorticity  on  each  panel  is  assumed  to  be  concentrated  at  the  quarter-chord 
point  of  the  panel  and  the  flow  tangency  condition  is  satisfied  at  the  "control  point" 
which  is  located  at  the  three-quarter  chord  point  of  the  panel  [Ref  1].  The  wing  problem 
then  reduces  to  computation  of  the  velocity  at  the  control  point  on  this  //th  panel  due 
to  all  the  other  panels.  This  velocity  is  combined  with  the  freestream  value  and  the 
tangency  condition  applied.  For  each  panel,  there  is  therefore,  one  linear  equation  and 
with  .V  panels  there  are  .V  such  equations.  Matrix  methods  are  apphed  to  solve  this 
system  and  with  the  vorticity  distribution  known,  the  Kutta-Zhukovsky  theorem  is  ap- 
phed to  obtain  the  hft  and  moments.  The  induced  drag  can  be  computed  from  the 
downwash,  which  is  known  at  the  control  points,  The  vorte.x-lattice  method  used  by 
program  VORLAT  is  a  simple  approach  used  to  solve  for  y  =  >'(-rj). 
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B.  PROGRAM  VORLAT 

Program  VORLAT  implements  the  vortex-lattice  method  to  determine  the  solution 
for  the  vortex  strength  distribution  on  a  flat,  untwisted,  rectangular  wing.  A  set  of 
horseshoe  vortices  are  used  to  approximate  the  flow  over  a  wing  of  low  aspect  ratio. 
This  is  a  version  of  the  VORLAT  program  by  Moran  [Ref  1]  which  has  been  highly 
modified  and  now  incorporates  a  cosine  spacing  scheme. 

The  User's  Vlanual  presents  a  short  description  of  the  VORLAT  program.  For 
complete  coverage  of  the  original  VORLAT  program,  consult  Moran  [Ref  1]. 

C.  PROGRAMS  JETFLAP  AND  JETFLAPIN 

Program  JETFLAP  was  written  by  M.  L.  Lopez,  C.  C.  Shen.  and  N.  F.  Wasson 
at  the  Douglas  Aircraft  Company,  Long  Beach,  CaUfornia.  The  program  is  based  on 
A  Theoretical  Method  for  Calculating  the  Aerodynamic  Characteristics  of  Jet-Flapped 
Wings  [Ref  7]  which  was  developed  under  a  research  contract  sponsored  by  the  Office 
of  Naval  Research.  The  program  is  quite  extensive  and  has  the  capability  of  determining 
the  following  aerodynamic  characteristics  of  wings  of  arbitrar\'  planform: 

•  Spanwise  and  chordwise  loading 

•  Spanwise  variation  of  induced  drag 

•  A  capability  to  investigate  the  effects  of 

Part  span  flaps 

Part  span  blowing 

Pitching,  rolling,  yawing  and  sideslip 

•  Total  lift  and  induced  drag  (momentum  method),  pitching,  yawing  and  rolling  mo- 
nients.  etc. 


The  program  also  provides  the  capabihty  to  investigate  the  eflects  of  a  variation  of 
leading  and  trailing  flap  deflection,  camber,  twist,  jet  deflection  and  jet  momentum. 

Despite  the  many  capabilities  of  this  program  and  the  revised  User's  Manual  devel- 
oped by  Soderman  [Ref  8]  in  1976,  the  program  has  had  limited  use  at  the  Naval  Post- 
graduate School  since  then.  This  author  feels  that  a  major  reason  for  its  lack  of  use  is 
the  inordinate  amount  of  time  required  for  the  user  to  prepare  and  input  the  data  file  for 
even  the  most  elementar\-  planform. 

To  alleviate  this  problem,  the  author  developed  Program  JETFLAPIN,  an  interac- 
tive data  entr\'  program  to  interface  with  the  JETFLAP  program.  To  ensure  compat- 
ibility, much  of  JETFLAPIN  was  created  using  existing  subroutines  from  JETFLAP. 
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The  JETFLAPIN  program  provides  the  user  with  a  method  of  developing  an  almost 
error- freeb  input  data  file  for  use  with  the  main  JETFLAP  program. 

The  JETFLAPIN  program  provides  error-checking,  data  review  correction,  assur- 
ance that  all  required  data  has  been  entered  and  the  elimination  of  redundant  data  entn.'. 


6  WTiile  it  is  still  possible  for  the  user  to  input  bad  data  values,  the  errors  due  to  values  out 
of  limits  or  incorrect  loiTnatlinii  ha\e  been  vii1uall\'  eliminated. 
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V.     PROGRAM  TRANSFER  AND  CONVERSION 

A.  INTRODUCTION 

This  section  discussed  the  steps  taken  in  the  transfer  of  the  programs  DUBLET, 
PANEL.  VORLAT  and  JETFLAP  from  the  IBM  mainframe  computer  and  their  con- 
version for  use  on  the  Micro  VAX  2000  workstation.  The  information  provided  here  will 
be  of  use  to  others  planning  future  transfers  of  programs  between  the  IBM  mainframe 
computer  and  the  MicroVAX  2000. 

B.  FILE  TRANSFER 

1.     Programs  DUBLET,  PANEL,  VORLAT 

The  programs  DUBLET,  PANEL  and  VORLAT,  were  located  on  the  IBM 
mainframe  under  the  user  account  4632P,  which  was  set  up  for  use  by  the  Numerical 
Methods  course.  AE  4632,  taught  in  the  Aeronautical  Engineering  Department. ^  Each 
program  was  opertational  on  the  mainframe  and  was  activated  through  the  use  of  an 
executive  calling  routine  referred  to  as  an  "EXEC".  These  EXECs  and  the  program 
source  code  files  were  readily  available  for  transfer. 

Each  program  and  its  callmg  EXEC  were  transferred  to  the  VAX  1 1  '7S0  located 
in  the  Computer  Science  Department.  This  was  necessary  as  the  AE  ME  VAX  network 
is  not  currently  linked  with  the  IBM  mainframe.  This  transfer  was  conducted  by  Mr. 
David  Marco,  a  computer  technician  working  on  the  AE  ME  VAX  system,  usmg  the 
VAX  27SO  37S0  Protocol  Emulator.  The  file  transfer  procedures  outlined  in  a  Computer 
Science  Department  handout  covering  the  RJE  File  Transfer  Package  were  followed. 
When  the  transfer  was  completed,  the  files  were  downloaded  to  a  magnetic  tape  car- 
tridge, a  DEC  TK50. 

The  tape  was  then  taken  to  the  MicroVAX,  2000  workstation  and  loaded  into 
the  DEC  TK50  tape  drive  subsystem  connected  to  the  workstation.  The  files  were  then 
tranferred  from  the  tape  to  the  workstation's  hard  disk.  From  here  the  files  could  be 
edited  using  the  VAX  EDT  editor  [Ref  9],  compiled,  linked  and  run  under  VAX 
FORTRAN  version  V4.0. 


7  The  read-oiily  password  for  this  account  is  .I\'II. 
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2.     Program  JETFLAP 

Program  JETFLAP  had  to  be  handled  quite  difTerently  than  the  other  programs. 
It  too  was  operational  on  the  mainframe,  however  it  had  been  converted  into  a  cata- 
loged procedure.  JETFLP.  and  was  executed  using  a  Job  Control  Language  (JCL)  rou- 
tine. An  example  of  this  JCL  file  is  shown  in  Figure  10.  More  information  on  how  to 
create  and  use  JCL  files  may  be  found  in  the  User's  Guide  to  MVS  at  NPS  [Ref  10]  or 
the  IBM  JCL  User's  Guide  [Ref  II]. 


//TAPER  JOB  (1461,1478), 'DOUGLAS  JETFLAP  PRGM' ,CLASS=C 

//'>MAIN  ORG=NAVPGS.  146 IP 

//   EXEC  JETFLP 

//SYS IN  DD  ^••- 

Tapered  Swept  Winf ,  AR=8,  Sweep  Angle  45,  10X10  W/Semi-Circle  Spacing 

50.0000    20.000    0.0 

10.43      10.43 

1001000001020000 

.993844    .969372    .921032 

.850012    .758062    .647446    .520888 

.381504    .232726    .078217 

01010101010101010101 

10 

.000000    .024472    .095492 

.206107   .345492   .5000     .654508 

.793893    .904508    .975528 

8.0       45.0      0.45 
9 

/" 

// 

Figure   10. 


Sample  JETFLAP  Batch  JCL  File 


After  an  exhaustive  search  by  the  personnel  of  the  W.  R.  Church  Computer 
Center  at  the  NPS.  it  was  determined  that  only  the  compiled  version  of  the  program 
existed  on  the  IBM  mainframe.  The  source  code  had  been  purged  from  the  system  and 
was  not  recoverable. 

A  magnetic  tape  containing  the  original  Douglas  Aircraft  Company  program 
was  obtained  from  Dr.  M.  F.  Platzer.  This  copy  had  been  obtained  during  thesis  work 
conducted  by  LCDR  A.  P.  SODERMAN.  The  tape  was  logged  into  the  NPS  computer 
center  and  its  characteristics  were  determined  using  the  tape  scan  JCL  utility  shown  in 
Fiuure   11. 
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//JETFLP        JOB   ( 1461, 9999 ),' JETFLP  TSCANl' ,CLASS=E 
//-•••-MAIN   SYSTEM=SY2  ,RINGCHK=NO 

//- 

//*   Print  tape  file  characteristics  for  any  tape 

//,v 

//  EXEC  TSCAN, VOLIN= JETFLP, DCB IN= ' DEN=2 ' ,UNITIN=' 3400 -4' 

// 


Figure   11.       Magnetic  Tape  Scan  Utility  (TSCAN)  JCL  File 

The  tape  scan  utility  revealed  that  the  tape  used  a  ven.'  old  tape  density  of  800 
BPI.  The  computer  center  still  had  an  800  BPI  magnetic  tape  machine,  however  they 
recommended  that  the  contents  of  this  tape  he  copied  onto  a  new  tape  using  the  more 
common  density  of  1600  BPI.  This  was  accomphshed  using  the  magnetic  tape  copy 
utility  JCL  file  shown  in  Figure  12.  The  name  of  the  original  tape  volume  was  JETFLP. 
This  was  changed  to  JTFLAP  on  the  new  copy. 


//JCOPY   JOB  (1461,9999),' JETFLP  COPY' ,CLASS=E 

I  I'- 
ll'k        COPY  TAPE  FILE  FROM  800BPI  TO  ANOTHER  AT  1600BPI 

//" 

//  EXEC  TAPE, VOLIN= JETFLP, DCBIN='DEN=2' ,UNITIN=' 3400-4' , 
//     VOLOUT= JTFLAP 
//SYSIN  DD  ^'- 
CPYEND(10,11) 
I'- 
ll 


Figure   12.       Sample  Tape  Copy  JCL  File 

Several  parity  errors  occurred  while  reading  the  original  tape  during  the  copying 
process.  This  was  an  indication  that  the  files  contained  on  the  original  tape  or  those 
obtained  through  the  transfer  process  may  contain  errors. 

To  discover  the  contents  of  the  tape,  a  magnetic  tape  dump  utility  JCL  file  was 
used.   This  file  is  shown  in  Figure  13. 
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//JTFLAP   JOB  (1461,9999), 'JTFLAP  TAPEl' ,CLASS=E 

//'>MAIN  SYSTEM=SY2,RINGCHK=N0,LINES=(  10) 

//•■- 

//*   PRINT  THE  CONTENTS  OF  EVERY  FILE  ON  THE  TAPE. 

I  I'- 
ll  EXEC  TAPE, VOLIN= JTFLAP 
//SYS IN  DD  '> 
DMPFIL( 10,256,1) 
/,v 

// 


Figure  13.       Sample  Tape  Dump  Utility  JCL  File 


A  quick  review  of  the  printout  of  produced  by  this  utility  revealed  that  the  tape 
did  contain  a  complete  set  of  the  desired  files  and  these  were  transferred  to  the  author's 
working  disk  (A  disk)  using  the  procedures  outlined  in  Reference  12.  The  JCL  file  used 
to  perform  the  transfer  from  tape  to  the  mainframe  is  shown  in  Figure  14. 


//JTFLAP   JOB    (1461,9999),' JETFLAP   TRANSFER' ,CLASS=A 

//      EXEC   PGM=IEBGENER 

//SYSPRINT  DD   SYSOUT=A 

//SYS IN  DD  DUMMY 

//SYSUTl   DD  DISP=SKR,DSN=MSS.C0052. JETFLP 

//SYSUT2   DD   UNIT=3350,V0L=SER=MVS004,DISP=( NEW, KEEP), 

//  SPACE=(CYL,(1,1)), 

//  DCB=(RECF:1=FB,LRECL=80,BLKSIZE=8000), 

//  DSN=S 1461. JETFLP 

// 


Figure   1-4. 


Sample  Tape  Transfer  JCL  File 


The  file  was  edited  to  remove  the  extra  lines  associated  with  the  transfer  process, 
specifically  header,  trailer  and  system  information  lines  associated  with  the  JCL  tape 
transfer  utility.  The  transfer  process  also  places  the  record  number  and  record  length 
at  the  beginning  of  each  record.  These  were  removed.  The  edited  version  of  the  pro- 
gram consisted  of  4661  Unes  of  FORTIl.'\N  code. 
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Examination  of  the  program  file  revealed  that  erroneous  pieces  of  information^ 
had  crept  into  the  source  file.  These  were  due  to  either  the  transfer  process  itself  or  ef- 
fects of  the  environment  and  aging  on  the  magnetic  tape.  Regardless  of  their  source, 
these  errors  corrupted  the  source  code  to  such  a  degree  that  it  would  not  compile  prop- 
erly on  the  mainframe. 

An  attempt  to  compile  the  program  was  made  using  the  VS  FORTR.A.N  com- 
piler with  its  extended  error  messages^  to  locate  as  many  errors  as  possible.  The  hsting 
which  was  produced  flagged  all  critical  areas  of  the  program  which  required  revision. 
Corrections  to  the  program  were  made  using  the  hsting  as  a  guide.  Corrections  to 
non-critical  areas  of  the  program,  such  as  comment  Hnes,  were  made  using  the  program 
source  code  hstings  contained  in  References  S  and  7  as  guides. 

It  was  noted  during  the  editing  process  that  no  further  errors  were  encountered 
in  the  program  follo\\'ing  Une  2462.  This  leads  the  author  to  the  conclusion  that  the  er- 
rors were  not  due  to  the  transfer  process,  but  solely  due  to  defects  present  in  the  outer 
windings  of  the  source  tape. 

Following  completion  of  the  editing  process,  the  program  was  compiled  satis- 
factorily. Since  the  program  was  written  using  several  commands  specific  to  FORTR.'-W 
IV  it  was  necessar}"  to  compile  the  program  using  the  (LVL(66))  option  with  the  VS 
FORTR^AX  compiler.  This  invokes  the  FORTRAN  IV  version  of  the  VS  FORTR.VN 
compiler  which  allows  proper  interpretation  and  compilation  of  older  programs  written 
under  the  FORTR.'W  IV  standard. 

The  successfully  compiled  JETFLAP  program  was  then  run  using  the  sample 
data  files  provided  in  References  8  and  7  as  input  files.  The  results  were  then  compared 
to  those  tabulated  in  References  8  and  7  which  were  obtained  using  the  same  data  files. 
A  slight  dilTerencc  was  discovered  between  the  computed  values  for  the  moment  coeffi- 
cients (CM  and  CMC).  This  diflcrence  was  traced  to  a  program  line  for  CMG{K)  in 
Subroutine  SLOAD  which  had  been  modified  in  [Ref  8:  p.  338]  and  [Ref.  7:  p.  C-19]. 
but  had  not  been  corrected  on  the  version  of  the  program  contained  on  the  source  tape. 
Modification  of  this  line  and  subsequent  compilation  and  running  of  the  program 
produced  results  identical  to  those  contained  in  References  8  and  7.    An  additional 


8  The  erroneous  data  consisted  of  extra  spaces,  non-standard  characters  and  improperly  in- 
terpreted characters,  i.e.,  several  Os  were  interpreted  as  Ms. 

9  The  \\'ATFIV  compiier  is  more  thorough  and  produces  an  even  greater  number  of  messages. 
It  is  recommended  for  use  on  smaller  programs  or  in  the  fmal  stages  of  program  development  due 
to  its  extensive  output. 
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comparison  was  made  with  the  data  file  and  results  produced  by  S.  M.  White,  as  part 
of  a  class  project  for  AE  3501[Rer.  13].  Again  the  results  were  identical.  It  was  then  felt 
that  the  program  was  ready  to  be  ported  over  to  the  Micro  VAX  2000. 

The  JETFLAP  program  was  transferred  frorn  the  IBM  mainframe  to  the 
Micro  VAX  2000  in  the  same  manner  described  previously.  It  was  compiled  using  the 
/NOF77  qualifier  under  VAX  FORTR.-\N  and  appeared  to  compile  successfully.  When 
a  sample  run  was  executed,  the  program  terminated  abnormally.  This  began  an  ex- 
tended period  of  debugging  to  achieve  proper  operation  of  the  program  on  the 
MicroVAX'2000. 

C.     CONVERSION  AND  REPROGRAMMING 
1.     Programs  DUBLET,  PANEL.  \  ORLAT 

The  programs  DUBLET,  PANEL  and  VORLAT  were  written  to 
FORTR.VN  77  standards  and  therefore  required  little  modification  to  become  opera- 
tional on  the  MicroVAX  2000.  The  only  significant  changes  required  involved  the 
handling  and  assignment  of  input  and  output  data  files.  As  discussed  in  the  section  on 
file  transfer,  each  of  these  programs  had  an  EXEC  file  which  related  to  it.  Each  EXEC 
contained  the  name  of  the  program  to  be  run  and  its  associated y7/^  definiiion  statements. 
The  file  definition  statements.  FILEDEFs,  assign  input  output  devices  and  were  used  to 
define  input  and  output  file  names  and  attributes  and  associate  these  with  the  logical 
unit  numberslO  assigned  in  the  called  program.  An  example  of  these  FILEDEFs,  with 
the  FILEDEF  command  abbreviated  to  FI,  are  shown  in  Figure  15.  More  information 
on  these  may  be  found  in  the  User's  Guide  to  VM  CMS  at  NFS  [Ref  14]  or  the  IBM 
CMS  Command  Reference  [Ref.  15]. 


10  A  logical  unit  number  is  specified  or  implied  as  part  of  the  I'O  statement  and  it  designates 
the  device  or  file  to  or  from  wiiich  data  is  transferred.  Loaical  unit  numbers  are  integers  from  0  to 
99. 
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6:TRACE  ON 

FI  1  DISK  JTFLAP  DATl  B  (RECFM  F  LRECL  2400  BLKSIZE  2400  DSORG  DA 

FI  2  DISK  JTFLAP  DATA2  B  (RECFM  VBS  LRECL 

860  BLKSIZE  3460 

FI  3  DISK  JTFLAP  DATA3  B  (RECFM  VBS  LRECL 

860  BLKSIZE  3460 

FI  4  DISK  JTFLAP  DATA4  B  (RECFM  VBS  LRECL 

860  BLKSIZE  3460 

FI  5  DISK  JTFLAP  DATA IN  (PERM 

FI  6  DISK  JTFLAP  DATAOUT  (RECFM  FBA  LRECL 

133  BLKSIZE  3325 

GLOBAL  TXTLIB  VFORTLIB  CMSLIB 

LOAD  JTFLAP 

GLOBAL  LOADLIB  VFLODLIB 

CLRSCRN 

START  'V 

&TYPE  COMPUTING  PROCESSING  IS  COMPLETED 

Figure  15.       FILEDEFs  in  a  Sample  JTFLAP  EXEC  File 

Although  the  use  of  EXEC  files  and  FILEDEFs  is  relatively  easy  and  is  com- 
mon practice  on  the  IBM  mainframe,  they  are  part  of  the  VMS  operating  system  and 
are  not  in  accordance  with  FORTRAN  77  standards.  The  VAX  VMS  operatnig  system 
does  have  a  similar  capability  using  the  CO.XLMAND  or  .COM  file,  however  in  an  elTort 
to  make  the  programs  more  machine  independent  and  compliant  with  the 
FORTR.AN  77  standard,  it  was  decided  to  open  and  define  input  and  output  files  wiilii)} 
each  FORTR.AX  program. 

The  use  of  the  OPEN  statement  causes  a  logical  unit  number  (device)  to  be  as- 
signed for  input  and  or  output,  ^^'ithin  the  OPEN  statement  specific  characteristics  of 
the  file  such  as  record  size,  file  type,  type  of  access,  file  status,  etc.,  are  defined.  An  ex- 
ample of  such  an  OPEN  statement  is  shown  in  Figure  16. 
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C  OPEN 

FILE 

FOR  DATA  FILE  INPUT 

OPEN 

(UNIT=LUN, 

2 

FILE=  'INFILE' , 

2 

0RGANIZATION=  'SEQUENTIAL', 

2 

ACCESS=  'SEQUENTIAL' , 

2 

RECORDTYPE=  'VARIABLE', 

2 

FORM=  'FORMATTED' , 

2 

STATUS=  'OLD') 

C  OPEN- 

SCRATCH  FILE  FOR  MATRIX  INPUT  TO  SOLN  ROUTINE 

OPEN 

(UNIT=2, 

2 

FILE=  'JTFLAP2.DAT' , 

2 

ORGANIZATION=  'SEQUENTIAL', 

2 

ACCESS=  'SEQUENTIAL' , 

2 

RECORDTYPE=  'VARIABLE', 

2 

FORM=  ' UNFORMATTED ' , 

2 

STATUS=  'SCRATCH') 

Figure  16.       Sample  OPEN  Statement 

Much  of  the  informaiion  shown  in  these  OPEN  statements  may  he  defaulted, 
that  is.  if  a  quaUfier  is  not  input  by  the  programmer,  a  predetermined  response  is  set  by 
the  compiler.  The  attributes  have  been  shown  here  for  clarity  and  to  enhance  portabil- 
ity. Since  not  all  compilers  use  the  same  defaults,  it  is  important  to  know  as  much  as 
possible  about  the  file  attributes  when  transferring  programs  from  one  machine  to  an- 
other. General  information  on  these  qualifiers  may  be  found  in  most  FORTR.-\N  texts 
and  specifics  for  the  MicroVAX  2000  may  be  found  in  the  VAX  FORTR.AN  Manuals 
[Refs.  16  and  17  ]. 
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VI.     RESULTS  AND  RECOMMENDATIONS 

The  objectives  of  this  thesis  study  have  been  achieved.  A  set  of  four  FORTR.'XN 
programs  for  basic  aerodynamic  analysis  are  available  for  student  projects  on  the 
Micro  VAX  2000  CAD  CAE  workstation.  The  following  programs  have  been  success- 
fully transferred  from  the  NPS  IBM  mainframe  computer  and  are  operational  on  the 
Micro  VAX;  2000. 

•  Program  DUBLET 

•  Program  PANEL 

•  Program  VORLAT 

•  Program  JETFLAP 

In  addition,  an  interactive  program,  JETFLAPIN,  has  been  developed  and  implemented. 
The  programs  are  easy  to  use,  JETFLAP  being  an  exception,  and  they  provide  the  de- 
sired attributes  of  data  review  correction,  multiple  run  capability  and  error-checking. 
A  users  manual  for  each  program  was  created.  These  manuals  along  with  sample 
input  output  files  and  complete  program  listings  are  contained  in  the  appendices. 

The  programs  were  tested  to  ensure  their  accuracy  and  completeness  following 
conversion.  This  was  accomplished  by  comparing  the  output  files  generated  by  the  IBM 
mainframe  and  the  Micro  VAX;  2000  for  identical  input  files.  The  numerical  output 
values  were  generally  in  agreement  to  the  fourth  decimal  place  or  better.  When  the 
JETFLAP  output  file  for  the  DOUGLAS.DAT  easel i  was  compared  to  the  output  file 
in  Ref  7,  it  was  found  to  be  numerically  exact,  save  for  a  few  isolated  values. 

The  results  of  the  2-D  programs  DUBLET  and  PANEL  were  compared  to  the  ex- 
pected theoretical  values  and  wind  tunnel  data  and  showed  good  correlation.  The  results 
of  program  PANEL  for  the  NASA  LS{1)-0013  airfoil  showed  excellent  agreement  with 
those  of  Ref  18.  Although  not  its  main  purpose,  the  PANEL  program  is  especially 
useful  for  generating  the  surface  coordinates  for  an  airfoil  of  the  NACA  XXXX  or 
23XXX  series. 

The  3-D  program  VORLAT,  using  the  cosine  spacing  option,  produced  results 
nearly  identical  to  those  obtained  by  Hough  [Ref  19],  for  a  wing  of  aspect  ratio  2.   As 


11  Input  file  used  by  Douglas  Aircraft  Co.  to  validate  JETFLAP  in  their  report  to  ONR. 
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mentioned  previously,  the  results  of  JHTFLAP  compared  well  with  the  results  found  in 
Refs.  7,  S  and  13. 

Countless  manhours  were  expended  in  the  editing,  debugging  and  vahdating  of  these 
programs,  and  the  result  is  the  desired  set  of  baseline  programs  for  basic  aerodynamic 
class  projects  and  research. 

As  with  all  programs,  there  are  still  a  few  more  changes  that  could  be  made  to  im- 
prove the  utihty  or  flexibility  of  these  programs.  The  next  major  step  is  to  provide  the 
capability  of  generating  graphical  output  from  the  data  produced  by  these  programs. 
The  programs  DUBLET.  PANEL  and  VORLAT  lend  themselves  quite  readily  to  this 
due  to  their  columnar  output  form,  and  in  fact,  the  results  shown  in  Figures  26  through 
34  in  Appendix  E  were  produced  on  the  IBM  mainframe  using  EASYPLOT  and 
DISSPLA. 

There  is  also  funhe-  work  to  be  done  on  program  JETFLAPIX.  Although  it  is  fully 
operational,  the  data  review  correction  and  error-trapping  routines  were  not  imple- 
mented for  jet-flapped  \\ings  due  to  time  constraints.  A  user  inputing  data  for  a  con- 
ventional unblown  wing  of  arbitrar>"  or  trapezoidal  planform  will  not  be  aware  of  this 
deficiency. 

Although  the  JETFLAPIN  program  performs  its  designed  task  of  assisting  the  user 
in  creating  the  properly  formatted  JETFLAP  input  file,  a  few  suggestions  for  improve- 
ment are  considered  relevant. 

•  The  program  should  allow  the  user  to  define  the  number  of  spanwise  and  chordwise 
divisions  and  then  automatically  compute  the  required  coordinates  using  a  semi- 
circle or  similar  scheme. 

•  The  program  should  provide  graphical  display  of  the  spanwise  and  chordwise 
loadings  for  the  fundamental  and  composite  cases.  The  section  loadings  to  be 
plotted  should  be  user  selectable. 

•  The  capability  to  read  in  and  either  continue  or  modify  an  existing  file  would  be 
quite  useful.  This  would  be  an  impro\ement  over  using  the  EDT  editor  to  modify 
(and  possibly  corrupt)  the  properly  formatted  file. 
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Introduction 

The  purpose  of  the  DUBLET  program  is  to  determine  the  pietewise  constant  doublet 
strength  niit)  for  a  line  doublet  distribution  of  an  elliptic  or  airfoil-like  shape  at  zero 
angle  of  attack.  The  points  i,  represent  the  location  of  the  doublets  along  the  chord  or 
line  of  symmetry.  They  are  concentrated  near  the  ends  of  the  distribution,  using  a  cosine 
spacing  method,  where  the  variation  of  the  doublet  strength  is  expected  to  be  most  rapid. 
The  point  /,  corresponds  to  x^  and  Ty  corresponds  to  the  endpoint  .v^.  The  abscissas  x, 
of  the  points  at  which  the  integral  equation  is  satisfied  are  chosen  as  the  midpoints  of 
the  subintervals  on  which  the  doublet  strength  is  constant,  i.e..  x,  =  (r,  +  r,_i)/2  . 

The  stream  function  can  be  calculated  from  the  doublet  strength  distribution.  From  the 
stream  function,  the  velocity  components  and  the  pressure  coefficients  may  be  calcu- 
lated. The  surface  shape  is  defined  by  y  =  y'(.v)  and  the  solution  must  satisfy  the 
boundary  conditions  at  the  leading  and  trailing  edge  stagnation  points. 

Assumptions  and  Limitations 

The  approach  taken  to  develop  this  method  of  solution  assumes  that  the  source  and 
doublet  strength  functions  are  both  pieccwise-constant.  It  is  also  important  to  remem- 
ber that  this  solution  is  for  incompressible  and  inviscid  irrotational  flow.  Since  the 
bodies  under  investigation  are  symnietrical  and  at  zero  angle  of  attack,  there  is  no  lift 
or  induced  drag  produced.  In  addition,  there  is  no  drag  since  we  are  considering  an 
inviscid  fluid. 

Input  Description 

There  are  ver}'  few  input  values  required  for  this  simple  program.  Their  description  and 
program  variable  namc-^  are  listed  below. 

NTYPE  -  Type  of  body  shape;  elliptic  or  airfoil-like. 

TAU  -  Thickness  ratio.  (Ma.ximum  thickness/chord) 

XMAXY  -  Chordwise  location  of  the  point  of  maximum  thickness.  (Airfoil  only) 

N  -  Number  of  intervals.  2  <  N  <  100 

XS  -  Doublet  distribution  starting  point. 

XF  -  Doublet  distribution  ending  point. 

NXTOL  -  Exponent  value  used  to  generate  the  convergence  criterion  XTOL. 

NFTOL  -  Exponent  value  used  to  generate  the  convergence  criterion  FTOL. 
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XTOL  -  X  location  tolerance. 
FTOL  -  X  location  tolerance. 

Sample  Problem 

A  few  sample  problems  will  illustrate  the  use  of  the  DUBLET  program.  The  first  run 
will  be  done  using  an  ellipse  of  thickness  ratio  0.1.  The  second  run  will  analyze  an 
airfoil-like  shape  with  a  thickness  ratio  of  0.12  and  a  chordwise  location  of  maximum 
thickness  of  0.30. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 
Next,  ensure  that  the  program  is  in  >our  directory  by  typing 

DIR  [Return] 
and  viewing  the  files  for  DUBLET.EXE  and  DUBLET.OBJ.   If  only  the  DUBLET. EOR 
file  exists,  you  must  compile  the  program  by  typing, 

FOR  DUBLET  [Return] 
The  next  step  is  to  link  the  program  by  entermg, 

LINK  DUBLET  [Return] 
The  files  DUBLET.EXE  and  DUBLET.OBJ  will  now  exist  and  you  will  be  able  to  run 
the  program. 

Running  the  Program 

To  run  the  program,  type 
DUBLET  [Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Fieure  17. 
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PROGRAM  DUBLET  :  VERSION  2  :  3  AUGUST  88 

DOUBLET  DISTRIBUTION  METHOD  IS  USED  TO  DETERMINE 
INCOMPRESSIBLE  FLOW  AROUND  AN  ELLIPSE  OR 
SYMMETRICAL  AIRFOIL  AT  ZERO  ANGLE  OF  ATTACK 

PROGRAM  ASSUMES  A  NONDIMENSIONAL  CHORD,  THAT  IS, 
THE  VALID  RANGE  OF  X  IS  FROM  0  TO  1. 

ENTER  TYPE  OF  BODY  SHAPE  DESIRED: 

1)  ELLIPTIC  OR 

2)  SYMMETRICAL  AIRFOIL-LIKE 
ENTER  1  OR  2. 


Figure  17.       Initial  Screen  for  Program  DUBLET 

For  the  elliptic  case  respond  to  the  request  by  entering 

1  [Return] 
Respond  to  the  request  for  the  thickness  ratio  by  entering 

0.1  [Return] 
Now  enter  the  number  of  intervals  you  desire  the  doublet  distribution  to  have  by  enter- 
ing 

10  [Return] 
The  screen  should  now  look  like  what  is  shown  in  Fisure  IS. 


WHICH  METHOD   DO  YOU  WISH  TO   USE   TO   DETERMINE  THE 
DOUBLET  DISTRIBUTION  ENDPOINTS?    (1   OR   2) 

1)  PROGRAM   INTERVAL-HALVING   SUBROUTINE   TO    ITERATE. 

2)  MANUAL   ITERATION   BY  THE   USER. 


Figure   18.        Endpoint  Determination  Method  Selection  Screen 

Respond  to  the  question  by  entering 
1  [Return] 

Ifvou  should  desire  to  enter  vour  own  values,  enter  2. 
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The  next  values  you  will  be  required  to  enter  are  for  the  X  location  tolerance  and  the 
stagnation  point  velocity  function  tolerance.  It  is  recommended  that  values  of  \()[l-6 
(0.000001)  be  used.  The  maximum  number  of  iterations  should  be  set  at  a  value  of  at 
least  20  when  using  such  small  tolerances. 

The  output  parameter  entn."  has  only  to  do  with  the  interval  halving  subroutine.  Unless 
you  are  having  problems  with  the  program  or  are  interested  in  the  convergence  of  the 
solution,  it  is  recommended  that  this  value  be  set  to  zero  (0). 

Following  entr}'  of  the  output  parameter,  the  program  begins  the  solution  process.  It 
returns  with  UO  and  Ul,  the  values  for  the  X  velocity  component  at  the  stagnation 
points  and  the  values  for  XS  and  XF,  the  beginning  and  ending  points  of  the  line  doublet 
distribution.  If  the  values  for  UO  and  Ul  are  sufficiently  close  to  zero,  say  less  than 
lOE-3  (0.00 1),  then  enter 

Y  [Return] 
If  you  desire  more  accuracy,  enter 

N  [Return] 
and  then  reenter  the  tolerance  and  maximum  iteration  values.    Responding  with  a  (Y) 
will  cause  the  program  to  proceed  to  the  output  stage.    Values  will  be  printed  to  the 
screen  and  to  the  followins  data  files: 


DUBLET.  DAT 
SHAPE.  DAT 
PRESSURE.DAT 


DOUBLET  STRENGTH  DISTRIBUTION 
BODY  SURFACE  COORDINATES 
SURFACE  PRESSURE  DISTRIBUTION 


You  will  be  asked  for  the  number  of  pressure  coefficient  output  points  you  desire.  This 
number  is  independent  of  the  number  of  intervals  of  the  line  doublet  distribution.  It 
affijcts  only  the  number  of  output  data  points  and  not  the  accuracy  of  the  solution.  The 
program  now  asks  if  you  want  to  make  another  run.    Enter 

1  [Return] 
This  time  the  sample  problem  will  work  through  the  airfoil-like  shape  case  and  the  user 
will  supply  the  values  of  XS  and  XF.    The  user  may  experiment  with  manual  iteration, 
however  to  save  space  this  sample  will  use  previously  determined  satisfactory'  values  of 
XS  and  XF  for  the  initial  suess. 
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You  should  now  be  back  at  the  initial  screen  and  it  should  look  like  Figure  17.  For  the 
airfoil-like  case  enter 

2  [Return] 
Respond  to  the  request  for  the  thickness  ratio  by  entering 

.12  [Return] 
For  the  chordwise  location  of  maximum  thickness,  enter 

.30  [Return] 
Now  enter  the  number  of  intervals  you  desire  the  doublet  distribution  to  have  by  enter- 
ing 

10  [Return] 
The  next  step  is  to  select  the  method  for  the  determination  of  the  endpoints  for  the 
doublet  distribution.    The  screen  should  look  like  Ficure  19. 


WHICH  METHOD 

DO  YOU  WISH 

TO  USE 

TO 

DETERMINE 

THE 

DOUBLET  DISTRIBUTION  1 

5:ndpoints? 

(1 

OR  2) 

1) 

PROGRAM 

INTERVAL 

-HALVING  SUBROUTINE 

TO 

ITERATE. 

/ 

2) 

MANUAL 

ITERATION 

BY 

THE  USER. 

Figure   19.        Endpoint  Determination  Method  Selection  Screen 

This  time  respond  to  the  question  by  entering 

2  [Return] 
For  the  doublet  distribution  starting  point,  XS,  enter 

.0082129128  [Return] 
For  the  doublet  distribution  ending  point.  XF,  enter 

.9994138  [Return] 

As  with  the  previous  example,  the  program  now  begins  the  solution  process.    It  returns 
with  L'O  and  L'l.  the  values  for  the  X  velocity  component  at  the  stagnation  points.    It 
also  echoes  back  the  values  entered  for  XS  and  XF.    If  the  returned  values  for  UO  and 
L'l  are  sufficiently  close  to  zero,  then  enter 
Y  [Return] 

This  response  will  cause  the  program  to  proceed  to  the  output  stage.    Values  will  be 
printed  to  the  screen  and  to  the  data  files. 
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Enter  the  number  of  pressure  coelTicicnt  output  points  you  desire,  ^'ou  are  reminded 
that  this  number  is  independent  of  tlie  number  of  intervals  of  the  Une  doublet  di'^trib- 
ution  and  it  does  not  alTect  the  accuracy  of  the  solution. 

The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 
2  [Return] 

This  completes  the  sample  problems  for  the  DUBLET  program.  The  data  files  created 
by  these  sample  runs  and  the  hsting  for  the  DUBLET  program  are  on  the  following 
pages.  Since  the  bodies  analyzed  by  this  program  are  symmetrical  with  respect  to  the  x 
axis,  only  the  upper  surface  body  shape  coordinates  and  pressure  coefficients  are  output. 
For  this  reason,  the  piecewise  constant  doublet  strength  M(l)  is  divided  by  two  to  indi- 
cate the  portion  alTecting  the  upper  surface. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 

Sample  problem  1:    Ellipse  -  Tiiickiiess  ratio  =  0.1 

T(I)       =  Chordnise  location  of  doublets,  T(l)  =  XS   T(N)  -  XF 
M(I)/2    =  Piece>vise  doublet  strength  /  2 

DATA  FILE:    DUBLET.DAT 

DOUBLET  STRENGTH  DISTRIBUTION 
T(I)  M(I)/2 


0. 

0045 

0. 

0112 

0. 

0287 

0. 

0259 

0. 

0991 

0. 

0395 

0. 

2087 

0. 

0494 

0. 

3469 

0. 

0547 

0. 

5000 

0. 

0547 

0. 

6531 

0. 

049- 

0. 

7913 

0. 

0395 

0. 

9009 

0. 

0259 

0. 

9713 

0. 

Oil? 

0. 

9955 

0. 

0000 

Sample  problem  2:    Airfoil  Shape  -  Thickness  ratio  =  0.12,  XMAXY  =  0.30 

DOUBLET  STRENGTH  DISTRIBUTION 
T(I)     M(I)/2 


0. 

0082 

0. 

0184 

0. 

0325 

0. 

0438 

0. 

1029 

0. 

0624 

0. 

2125 

0. 

0703 

0. 

3507 

0. 

0671 

0. 

5038 

0. 

0551 

0. 

6570 

0. 

0383 

0. 

7951 

0. 

0214 

0. 

9048 

0. 

0083 

0. 

9752 

0. 

0016 

0. 

9994 

0. 

0000 
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Sample  problem  1:   Ellipse  -  Thickness  ratio  =  0.1 


DATA  FILE:  SHAPE.DAT 


BODY  SHAPE 

-  UPPER  SURFACE 

X 

Y 

0.0166 

0.0128 

0.0639 

0. 0245 

0.  1539 

0.0361 

0.2778 

0.  0448 

0.4234 

0. 0494 

0.5766 

0.  0494 

0.  7222 

0.  0448 

0.  8461 

0.  0361 

0.  9361 

0.0245 

0.  9834 

0.  0128 

Sample  problem  2:   Airfoil  Shape  -  Thickness  ratio  =  0.12,  XMAXY  =  0.30 


BODY  SHAPE 

-  UPPER  SURFACE 

X 

Y 

0.0203 

0.  0219 

0.  0677 

0.  038r 

0.  1577 

0.  0523 

0.2816 

0.0597 

0.4272 

0.0586 

0.5804 

0.  0500 

0. 7260 

0.  0365 

0. 8499 

0.0216 

0.  9400 

0.  0091 

0.  9873 

0. 0020 
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Sample  problem  1:    Ellipse  -  Thickness  ratio  =0.1 

DATA  FILE:    PRESSURE.DAT 

BODY   SURFACE   PRESSURE   DISTRIBUTION 
X  CP 


0. 

0000 

1. 

0000 

0. 

1111 

-0. 

2621 

0. 

2222 

-0. 

2341 

0. 

3333 

-0. 

1866 

0. 

4444 

-0. 

2078 

0. 

5556 

-0. 

2078 

0. 

6667 

-0. 

1866 

0. 

7778 

-0. 

2341 

0. 

8889 

-0. 

2621 

1. 

0000 

1. 

0000 

Sample  problem  2:    Airfoil  Shape  -  Thickness  ratio  =  0.12,  XMAXY  =  0.30 

BODY  SURFACE  PRESSURE  DISTRIBUTION 
X        CP 


0. 

0000 

1. 

0000 

0. 

nil 

-0. 

3946 

0. 

2222 

-0. 

3572 

0. 

3333 

-0. 

3162 

0. 

4444 

-0. 

2938 

0. 

5556 

-0. 

1820 

0. 

6667 

-0. 

1180 

0. 

7778 

-0. 

2180 

0. 

8889 

-0. 

2142 

1. 

COOO 

1. 

0000 
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PROGRAM  DUBLET  LISTING 

PROGRAM  DUBLET 
C 

C  ***   MODIFIED  FOR  USE  ON  THE  MICROVAX/2000  BY  J. A.  CAMPBELL  (JUL  88) 
C     FINAL  UPDATES  MADE  1^  SEP  88  -  ( JAC  ) 

c 

C        INCOMPRESSIBLE  AERODYNAMICS  OF  SYMMETRIC  AIRFOIL 

C        AT  ZERO  AtJGLE  OF  ATTACK  BY  LINE  DOUBLET  DISTRIBUTION 

C 

C  ORIGINAL  IBM  MAINFRAME  PROGRAM  WAS  ADAPTED  FROM  JACK  MORAN'S  BOOK 

C  'AN  INTRODUCTION  TO  THEORETICAL  AND  COMPUTATIONAL  AERODYNAMICS', 

C  WILEY  AND  SONS,  NEW  YORK  198"^.   THE  LISTING  IS  FOUND  ON  PAGE  75. 

C     PROGRAM  FLEXIBILITY  AND  USER  INTERFACE  WAS  REVISED  FOR 
C     PROFESSOR  J.V.  HEALEY  BY  JOHN  CAMPBELL.   JULY  1988. 
C 

C 

CHARACTER*1   lANS 

INTEGER   NANS 

COMfiOrj      T(100),M(100),N,XS,XF 

COMMON   /FCN/   AX,TAU,NTYPE 

REAL    M,MPLOT 

C  FOLLOWING  LINES  FOR  OUTPUT  FILES  ADDED  BY  J. A.  CAMPBELL  (AUG88) 
C   OPEN  FILE  FOR  DOUBLET  STRENGTH  DISTRIBUTION  OUTPUT 
OPEN  (UNIT=11, 

2       FILE=  'DUBLET.DAT', 

2      ORGfNIZATIOW=  'SEQUENTIAL', 

2      ACCESS=  'SEQUENTIAL'. 

2      RECORDTYPE=  'VARIABLE', 

2       FORM=  'FORMATTED', 

2      STATUS=  'UNKNOWN') 
C 

C    OPEN  FILE  FOR  BODY  SHAPE  OUTPUT 
OPEN  (UNIT=12, 

2       FILE=  'SHAPE.DAT', 

2      0RGANI2ATI0N=  'SEQUENTIAL', 

2       ACCESS=  'SEQUENTIAL', 

2      RECORDTYPE=  'VARIABLE', 

2       FORM=  'FORMATTED', 

2      STATUS=  'UNKNOWN' J 

C   OPEN  FILE  FOR  BODY  SURFACE  PRESSURE  DISTRIBUTION  OUTPUT 
OPEN  (UNIT=15. 

2       FILE=  'PRESSURE.DAT', 

2      ORGANIZATION::  'SEQUENTIAL', 

2      ACCESS=  'SEQUENTIAL', 

2      RECORDTYPE=  'VARIABLE', 

2      FORM:^  'FORMATTED', 

2      STATUS=  'UNKNOiUrj 
C 

c 

C  CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THE  PRINT  HEADER 
5  COtJTINUE 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,  '  PROGRAM  DUBLET  :  VERSION  2  :  9  SEPTEMBER  88  ' 

PRINT  * 


C 


PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  * 
PRINT  *, 
PRIfJT  *, 
PRINT  * 
10  PRINT  *, 
PRINT  * 
PRINT  ii 
PRINT  * 


DOUBLET  DISTRIBUITON  METHOD  IS  USED  TO  DETERMINE' 
INCOMPRESSIBLE  AERODYNAMICS  OF  AN  ELLIPSE  OR  ' 
SY^:METRICAL  AIRFOIL  AT  ZERO  ANGLE  OF  ATTACK* 

PROGRAM  ASSUMES  A  NONDIMENSIONAL  CHORD,  THAT  IS,' 
THE  VALID  RANGE  OF  X  IS  FROM  0  TO  1.' 


ENTER  TYPE  OF  BODY  SHAPE  DESIRED: 
11  ELLIPTIC  OR' 
2)  SYMi-lETRICAL  AIRFOIL-LIKE' 
_     .    ENTER  1  OR  2.  ■ 
15  READ  (5.*)   NTYPE 

IF  (NTYPE  .LT.  1  .OR.  NTYPE  .GT.  2  1   THEN 

PRINT  *,  '    INVALID  ENTRY.  ENTER  1  OR  2.' 
GO  TO  IS 
END  IF 

PRINT  *,'    ENTER  THICKNESS  RATIO  (TAU).' 
READ  (5,«)  TAU 
IF  (NTYPE  .GT.  1)  THEN 
PRINT  * 

"^"tHICK^ESS  ^^^'^^^   '''"^  NONDIMENSIONAL  X  LOCATION  OF  MAXIMUM' 
20     READ  (5,*)  XMAXY 

IF  (XMAXY  .GT.  0.5  1  THEN 

PRINT  *,'    THE  PROGRAM  CONSIDERS  THE  ONSET  FLOW  TO  BE ' 
PRINT  »,'    APPROACHING  FROM  THE  LEFT.   THEREFORE,  THE' 
PRINT  *,'    X  LOCATION  OF  MAXIMUM  THICKNESS  MUST  BE  <  0.5. ' 
PRINT  *.'    ==>   PLEASE  REENTER.' 
GO  TO  20 
END  IF 

,   AX  =  (  .5  *  TAU )/(SQRT( XMAXY )*(1.  -  XMAXY)) 
END  IF 
C 
C        INPUT  NUMBER  OF  INTERVALS  N 


PRINT  * 

70  PRINT  *,   '  ENTER  ''UMBER  OF  INTERVALS  DESIRED.  N  =' 

71  READ  (5,*)   N 
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PRINT  * 

IF(N  .LT.  2  .OR.  N  . GT .  100  1  THEN 

HRITE(6,21)  N 

PRINT  *,  '     A  MINirUM  OF  TWO  INTERVALS  AND  A  MAXIMUM  OF' 

PRINT  *,  '     100  IS  ALLOWED.  ===>   PLEASE  REENTER. ' 

GO  TO  71 
END  IF 
21  FORMAT ( IX, 5X,' NUMBER  OF  INTERVALS  REQUESTED  =",I3) 

C    ASK  USER  FOR  AUTOMATIC  OR  MANUAL  DETERMINATION  OF  ENDPOINTS. 
80  CONTINUE 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,   '  WHICH  METHOD  DO  YOU  WISH  TO  USE  TO  DETERMINE  THE' 

PRINT  *,   •  DOUBLET  DISTRIBUTION  ENDPOINTS?  (1  OR  2)' 

PRINT  *,   •    1)  PROGRAM  INTERVAL  HALVING  SUBROUTINE  TO  ITERATE.' 

PRINT  *,   '    2)  MANUAL  ITERATION  BY  THE  USER.' 

PRINT  * 

PRINT  *,       '  ENTER  5  TO  RETURN  TO  START.' 

READ  (5,*)  NMETH 

GO  TO  (120,100,5)  WETH 

C   MANUALLY  DETERMINE  ENDPOINTS  OF  SOURCE  DISTRIBUTION  XS,  XF 
C 
100   CONTINUE 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,   '       ROUTINE  FOR  MANUAL  DETERMINATION  OF  ENDPOINTS' 

PRINT  * 

PRINT  X,   '      ' 

PRINT  * 

PRINT  *,   •  ENTER  THE  DOUBLET  DISTRIBUTION  STARTING  POINT,  XS.' 

PRINT  *,   •  (XS  SHOULD  BE  APPROXIMATELY  ONE  HALF  OF ' 

PRINT  M,   'THE  NDNDIMENSIONAL  LEADING  EDGE  RADIUS.)' 

READ  (5,*)  XS 

PRINT  * 

PRINT  *,   '  ENTER  THE  DOUBLET  DISTRIBUTION  ENDING  POINT,  XF.' 

PRINT  *,   '  IXF  SHOULD  BE  APPROXIMATELY  ONE  MINUS  HALF' 

PRirjT  >,   '  OF  THE  NDNDIMENSIONAL  TRAILING  EDGE  RADIUS.)' 

READ  (5,*)  XF 

PRINT  * 

PRINT  * 

CALL  FIK'DM  (  T  ,M  ,N  ,XS  .XF  ) 

CALL  PRESS(0.6,U0,CP6) 

CALL  PRESS( 1.0,U1,CP1) 

GO  TO  150 
C 

120  CONTINUE 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,       •  INTERVAL  HALVING  ROUTINE  FOR  DETERMINATION  OF' 

PRINT  *,   '  DOUBLET  DISTRIBUTION  ENDPOINTS' 

PRItJT    *f 

PRINT    ^,       '  ' 

PRINT  * 
C       ENTER  THE  PARAMETERS  REQUIRED  BY  THE  INTERVAL  HALVII^G  METHOD 
C        WHICH  IS  USED  TO  OBTAIN  THE  PROPER  LOCATIONS  FOR  XS  AND  XF . 

PRirJT  *,  '  ENTER  THE  INTEGER  EXPONENT  FOR  THE  X  TOLERANCE,  NXTOL." 

PRINT  *,  '    EXAMPLE:   A  VALUE  OF  't ,  GIVES  A  TOLERANCE  OF  0.0001.' 

READ  (5,J«)  NXTOL 

PRINT  * 

PRINT  *,     '    ENTER  THE  INTEGER  EXPONENT  FOR  THE  FUNCTION  ', 
8  'TOLERANCE ,  NFTOL . ' 

PRINT  *,  '  (SAME  IDEA  AS  NXTOL >  5  YIELDS  FTOL  =  0.00001).' 

READ  (5,*)  NFTOL 

PRirJT  * 

PRINT  *,  '  ENTER  THE  MAXIMUM  NUMBER  OF  ITERATIONS,  MAXIT,  TO  ' 

PRINT  ^,  '  LOCATE  XS  AND  XF .  (FOR  NFTOL  =  6,  SUGGEST  35-40)  ' 

READ  (5,*)  MAXIT 

PRINT  * 

PRINT  *,  '  ENTER  THE  OUTPUT  PARAMETER,  TOUT.' 

PRINT  *,  •       lOUT  =  0  TO  SUPPRESS  ALL  ITERATION  RELATED  OUTPUT' 

PRINT  *,  '  I  TO  OUTPUT  FINAL  RESULTS  ONLY' 

PRINT  *,  '  2  TO  OUTPUT  DETAILS  FOR  EACH  ITERATION' 

READ  (5,*)  lOUT 

CALL  INTHV  ( NXTOL , NFTOL ,NTYPE, MAXIT ,IOUT ,U0 .Ul ) 
C   RUN  THROUGH  PROCESS  AGAIN  WITH  FINAL  VALUES  OBTAINED  BY  ITERATION 

CALL  FINDM  ( T  ,M ,N,XS ,XF  ) 

CALL  PRESS(0.6,UO,CPO ) 

CALL  PRESS(1.0,U1,CP1 ) 

150  PRINT  *,   '  U  AT  X  =  0  =' ,U0, '      XS  =',XS 

PRINT  *,   '  U  AT  X  =  1  =',U1,'      XF  =',XF 

PRINT  * 

PRINT  *,   '  THESE  VALUES  FOR  U  SHOULD  BE  NEAR  ZERO.' 

PRINT  *,   ■  DO  YOU  ACCEPT  THESE  RESULTS  ( Y/N  )  ' 

READ  1000,  lANS 

IF  (lANS  .NE.  'Y' )  THEN 
GO  TO  (120,100)  NMETH 

END  IF 
C 

C  OUTPUT  RESULTS 

C 

PRINT  1010 

WRITE  (11,1012) 

M(N+1)   =  0.0 

DO  200   I  =  1,N+1 

MPLOT    =  M( I  1*5.1415926585 

PRINT  1040,  T(I  I, MPLOT 
200   WRITE  (11,1040)  T( I), MPLOT 

PRINT  1020 
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WRITE  (12,1020) 

DO  210   I  =  1,N 

XX      =  .5^1 T(I  )  +  TlI  +  1)  ) 

YY      =  Y(XX  I 

PRINT  1040,  XX, YY 
210   WRITE  (12,l0'+0)  XX, YY 

PRINT  1050 
212   READ  (5.*)    NPRINT 

IF  (NPRlNT  .LT.  2  )  THEN 

PRINT  *,     •       YOU  MUST  ENTER  A  MINIMUM  OF  2.  PLEASE  REENTER.' 
GO  TO  212 

END  IF 

WRITE  (15,1052) 

DO  220   I  =  l.NPRINT 

XX      =  (I-1)/FL0AT(NPRINT-1) 

CALL  PRESS(XX,U,CP  ) 

PRINT  10<40,  XX, (iP 
220   WRITE  (15,l0'+0^  XX.CP 
C   CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,  •  PROGRAM  DUBLET  RESULTS  HAVE  BEEN  WRITTEN  TO  FILES:' 


PRINT  » 

PRINT  *,  '  DUBLET.DAT 


DOUBLET  STRENGTH  DISTRIBUTION" 
BODY  SURFACE  COORDIfJATES ' 
SURFACE  PRESSURE  DISTRIBUTION' 


PRINT  M,  '  SHAPE.DAT 
PRINT  *,  '  PRESSURE.DAT; 
PRINT  * 
PRINT  * 
C        OPTION  TO  MAKE  ANOTHER  RUN 
PRINT  * 

PRINT  *,  '  DO  YOU  WISH  TO: 
PRINT  *y     •  1)    MAKE  ANOTHER  RUN  OR' 

PRINT  *,  •       2)  END  THIS  SESSION' 
PRINT  *,  '  ENTER  1  OR  2. ' 
PRINT  * 

CALL  QUERY  (NANS) 
CALL  CLRSCRN 

IF  (NANS  .EQ.  1)   GO  TO  10 
STOP 
1000  FORriAT(Al) 
1010  FORHAK/,'  DOUBLET  STRENGTH  DISTRIBUTION',/, 

+         «  M  =  Mil)  FOR  T(I)  .LT.  T  . LT .  T(I+1)',//, 
+        5X, 'Td  )' ,5X, 'M(I  1/2' ,/) 
1012  FORMAT(/,'  DOUBLET  STRENGTH  DISTRIBUTION',//, 

+        5X,  "Td  )',5X, 'Md  )/2' ,/ 1 
1020  FORMAT(//,'  BODY  SHAPE  -  UPPER  SURFACE ' ,//,6X, 'X ' ,9X, 'Y ',/ ) 
1050  FORMAK//,'  BODY  SURFACE  PRESSURE  DISTRIBUTION',//, 

+        6X,*X' ,8X, 'CP' ,//,'  INPUT  NUtlBER  OF  PRESSURE  COEFFICIENT', 
+         ■  OUTPUT  POINTS'  ) 
1052  FORMAT(//,'  BODY  SURFACE  PRESSURE  DISTRIBUTION',//, 

+        6X. 'X' ,8X, 'CP' ,//) 
10<+0  FORMAT(2F10.'+) 
EtJO 

C******?^rr****^****^*r*^**if^*Jt***9(***************9f****»*******»*********** 

SUBROUTINE  CLRSCRN 
C 

C   LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
C 

1ST AT  =  LIB$ERASE  PAGE  (1,1) 

RETURN 

END 

SUBROUTINE  QUERY (NANS) 
C 

C   ROUTINE  TO  TRAP  ERRORS  CAUSED  BY  IMPROPER  RESPONSES  TO  QUESTIONS. 
C   THE  COMPUTER  GENERATES  AND  ERROR  WHEtJ  A  CHARACTER  IS  SUPPLIED  TO 
C   A  QUESTION  EXPECTItJG  AN  INTEGER  OR  REAL  VALUE. 
C 

NQTEST=0 
1  CONTINUE 

IF  (NQTEST  .GT.  0)  THEN 

PRI^jT  *,     •       CHARACTER  VALUES  ARE  NOT  VALID.' 
PRINT  *,  '   PLEASE  ENTER  A  VALUE  OF  1  OR  2.' 

END  IF 

NQTEST  =  NQTEST  +  1 

READ  (5,*,ERR=l)NAh4S 

RETURN 

END 

SUBROUTINE  FINDM  ( T  ,M,N,XS,XF  ) 
C 

C  FIND  DOUBLET  STRENGTH  TO  MEET 

C  FLOW  TANGENCY  CONDITION 

C 

DIMENSION  TdOO  ),M(100) 

COMMON  /COF/  A( 101,111 ),NEQNS 

REAL   M 

PI  =   3.1<+1S926585 

NP  =   N   +    1 

DO  100   I  =  l.NP 
C     COSINE  SPACING  SCMEME  FROM  XS  TO  XF 

FRACT   =  .5»(1.  -  COS(PI*d-l)/FLOAT(N))) 
100  Td)    =  XS  +  (XF  -  XS)«FRACT 
C 
C  SET  UP  LINEAR  SYSTEM  OF  EQUATIONS 


C 


DO  210  I  =  l.N 

XI  =  .5*(Td)  ♦  Td  +  D) 

YI  =  Y(XI  ) 

FACl  =  ATAN2(T(1)  -  XI, YI) 
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200 
210 


DO    200      J    =    1,N 

FAC2  =    ATAN2(T(J+11    -    XI ,YI) 

Ad.J)       =    (  FAC2    -    FACD/YI 

FACi     =  FAC2 

A(I,NP)  =  1.0 

SOLVE  FOR  DOUBLET  STRENGTH 


NEQNS    =  N 
CALL  GAUSS( 1) 
DO  SOO   I  =  1,N 
300   Ml  I  I     =  A(I,NP) 
RETURN 


END 

SUBROUTINE  GAUSS(NRHS) 

SOLUTION  OF  LINEAR  ALGEBRAIC  SYSTEM  BY 
GAUSS  ELIMINATION  WITH  PARTIAL  PIVOTING 

°A        =  COEFFICIENT  MATRIX 

NEONS     =  NUMBER  OF  EQUATIONS 

NRHS       =  NUMBER  OF  RIGHT  HAND  SIDES 

RIGHT-HAND  SIDES  AND  SOLUTIONS  STORED  IN 
COLUMNS  NEQNS+1  THRU  NEQNS+NRHS  OF  °A 

COMMON  /COF/  A(101.111),NEQNS 


NP 
NTOT 


DO  ISO 


=  NEONS 
NEOr^S 


+  NRHS 


GAUSS  REDUCTION 

I  =  2,NEQNS 

--   SEARCH  FOR  LARGEST  ENTRY  IN  (I-I)TH  COLUMN 
ON  OR  BELOW  MAIN  DIAGONAL 


110 


IM 

I  MAX 

AMAX 

DO  110 

IF  (AMAX  .GE 

I MAX     =  J 

AMAX     =  ABSIA(J,IM)) 

CONTINUE 


=  1-1 

=  IM 

=  ABS( AflM.IM)) 

J  =  I, NEONS 

""   ABS(A( J,IM))  )  GO  TO  110 


,1S0 

'140 
150 


IF  (IMAX  .NE.  IM1 
DO  130   J  =  IM,NTOT 
TEMP     =  A(IM,J  ) 
A(  IM,J)  =  A(IMAX,J) 
A(IMAX,J)  =  TEMP 
CONTINUE 


SWITCH  (I-l)TH  AND  IMAXTH  EQUATIONS 
GO  TO  l<+0 


DO  150 

R 

DO  150 

A( J,K  ) 


ELIMINATE  (I-l)TH  UNKNOWN  FROM 
ITH  THRU  (NEQNS)TH  EQUATIONS 

J  =  I.NEQNS 

=  A( J,IM  i/A(IM,IM) 

K  =  I, NTOT 

=  A(  J,K)  -  R*A(IM,K) 

BACK  SUBSTITUTION 


DO  220   K  =  NP.NTOT 

AINEQNS,K)  =  A(NE>3NS,K)/A(NEQNS,NEQNS) 

DO  210   L  =  2,NEQNS 

I        =  NEQNS  +  1  -  L 

IP      =1+1 

DO  200   J  =  IP, NEQNS 
200   A(I,K)   =  A(I,K)  -  A(I,J)*A(  J,K) 
210   A(I ,K  )   =  A(I,K)/A(I,I  ) 
220   CONTINUE 

RETURN 
C»t****^*i«^J(*^****^^********«*******************«»**************  *********** 


100 


END 

SUBROUTINE  PRESS! X ,U ,CP ) 

FIND  PRESSURE  COEFFICIENT  CP  AT  (X,Y(X)) 

COMMON  T( 100),M( 100),N,XS,XF 

REAL  M 

YB  =  Y(X) 

U  =  1.0 

V  =  0.0 

VFl  =  l./((T(l)  -  X)**2  +  YB*YB) 

UFl  =  (T( 1)  -  X)*VF1 

DO  100  J  =  1,N 

VF2  =  l./((T(J+l)  -  X)**2  +  YB*YB) 

UF2  =  (T( J+1)  -  X)*VF2 

U  =  U  +  M(  J)*(UF2  -  UFl) 

V  =  V  -  M(J1*YB*(VF2  -  VFl) 
VFl  =  VF2 

UFl  =  UF2 

CP  =  1.0  -  U*U  -  V*V 

RETURN 

END 
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c 


XPREV.    X    =    TWO    irJITIAL 'guesses,    GIVEN  N 
THE    SUBROUTINE    RETURNS: 


FUNCTION  Y(X) 

COMMON  /FCN/  AX,TAU,NTYPE 
C 

C        ORDINATE  OF  BODY  CONTOUR 
C 

IF  (NTYPE  .EQ.  1  )  THEN 
C 

C        PROVIDE  BODY  ORDINATES  FOR  AN  ELLIPSE  OF  THICKNESS  RATIO  TAU 
C        (CHORD  HAS  BEEN  NONDIMENSIONALIZED ,  C=1.0) 
C 

C        TO  REDUCE  THE  NUMBER  OF  VARIABLES  PASSED  IN  THE  FUNCITON 
C         STATEMEfJT,  THE  DUMMY  VARIABLE  AX  PASSES  TAU  FOR  THE  ELLIPSOID 
C        CASE  AND  THE  COEFFICIENT  AX( TAU.XMAXY  )  FOR  THE  SYMMETRICAL 
C        AIRFOIL-LIKE  CASE. 
C 

Y  =  TAU  *  SQRT(X*(1.-X)) 
ELSE 

C 

C        PROVIDE  BODY  ORDINATES  FOR  A  SYMMETRIC  AIRFOIL-LIKE  SHAPE 

C        (CHORD  HAS  BEEN  NONDIMENSIONALIZED,  C=1.0) 

Y  =  AX  *  SQRT(X)*(1-X) 
END  IF 

RETURN 

END 
C 

SUBROUTINE  INTHV  ( "XTOL ,NFTOL , NTYPE ,MAXIT ,IOUT ,U0 ,U1 ) 

COMMON   T(100  1,M(]  0),N,XS,XF 

C  SUBROUTINE  TO  FIND  Th£  ROOTS  OF  fix)  =  0  USING  THE 

C  INTERVAL  HALVING  METHOD 
C 

C  IN  THE  PARAMETER  LIST  THE  USER  MUST  PROVIDE: 
C  NXTOL  =  EXPONENT  FOR  X  TOLERAfJCE  VALUE 

C         NFTOL  =  EXPOf^Err,  FOR  FUNCTION  TOLERANCE  VALUE 
C         NTYPE  =  SHAPE  TYPE;  ELLIPTICAL  OR  AIRFOIL 
C  MAXIT  =  MAXIMUM  NUMBER  OF  ITERATIONS 

C  ICUT  =  0  TO  SUPPRESS  ALL  OUTPUT  (TO  DEVICE  IW ) 

C  1  TO  OUTPUT  FINAL  RESULTS  ONLY 

C  2  TO  OUTPUT  DETAILS  FOR  EACH  ITERATION 

C  THE  SUBROUTINE  CALCULATES: 
C 
C 

C        XS,  XF  =  CURRENT  X  VALUES  WHEN  TERMINATION  OCCURRED 
C        UO,  Ul  =  CURRENT  VELOCITY  VALUES  WHEN  TERMINATION  OCCURRED 
C         lEXIT  =  1,  2,  3,  4  OR  7  (SEE  FORMAT  STATEMENTS  1-1+87) 

C  Subprogram  name  F  must  be  declared  EXTERNAL  in  calling  program. 

C 

IW  =  5 

XTOL  =  10. **( -NXTOL) 
FTOL  =  10.*^(  -rJFTOL  ) 
C   CALCULATE  INITIAL  GUESS  FOR  XS  AND  XF,  GIVEN  N 
XS  =  1.  /  FLOAT (N  +  1) 
XSPREV  =  10.)t*(  -6  ) 
XF  =  1   —  XS 
XFPREV'=  1.  -  XSPREV 
C   SET  X  VALUES  FOR  LEADING  AND  TRAILING  EDGES  FOR  SUBROLTTINE  PRESS 
XLE  =  0.0 
XTE  =1.0 
C 

C    ITERATE  TO  DETERMINE  THE  PROPER  LOCATION  FOR  XF 
C 

C    FIRST  CHECK  TO  SEE  THAT  F(XF)  8  F(XFPREV)  DIFFER  IN  SIGN 
C   SO  THAT  THE  METHOD  WILL  CONVERGE. 
C 
C    EVALUATE  PREVIOUS  X  VALUE 

CALL  FIf.'DM  (T,M,N,XS,XFPREV) 
CALL  PRESS  (XTE,Ul,CP) 
YFPREV  =  Ul 
C    EVALUATE  INITAL  GUESS  FOR  X  VALUE 
CALL  FIMDI1  (T,M,N,XS,XF  ) 
CALL  PRESS  (XfE,Ul,CP  ) 
YF  =  Ul 

IF  (ICUT  .GT.  1)  WRITE  (IH.5I  XFPREV,  YPREV,  XF ,  YF 
IF  (YFPREV^YF  .GT.  0.0)  THEN 
I  =  -2 
PRINT  201 
RETURN 
END  IF 
C 

C   COMPUTE  SEQUENCE  OF  POINTS  CONVERGING  TO  THE  ROOT 
lEXIT  =  1 
DO  10  K=l,  MAXIT 

XR  =  (XFPREV  +  XF)/2.0 
C    FOR  THE  ELLIPTIC  CASE  XS  AND  XF  WILL  BE  EQUIDISTANT  FROM  THE  EDGES. 
IF  (NTYPE  .LT.  2)  THEN 

XS  =  ABS  ( 1 .  -  XR  ) 
END  IF 

CALL  FINDM  ( T ,M,N,XS,XR  ) 
CALL  PRESS  (XfE,Ul,CP) 
Y  =  Ul 
C   CHECK  ON  STOPPING  CRITERIA 


DELTAXF  =  XFPREV-XR 

XERR  =  ABS( XFPREV-XR  )/2.0 

IF  (lOUT  .GT.  1)  WRITE  (IW,6)  K,XR,Y, DELTAXF 

IF  (Y  .EO.  0.0)  lEXIT  =  2 

IF  (ABS(Y)  .LE.  FTOL)  lEXIT  =  3 

IF  (  XERR  .LE.  XTOL)  lEXIT  =  7 

IF  (lEXIT  .GT.  1)  GO  TO  20 
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IF  (Y^^YFPREV  .GT.  0.0)  THEN 
XFPREV  =  XR 
YFPREV  =  Y 
ELSE 

XF  =  XR 
YF  =  Y 
END  IF 
10  CONTirJUE 
THE  MAXIMUM  ITERATIONS  HAS  BEEN  EXCEEDED , WITHOUT  FINDING  A  ROOT, 
lEXIT  =  ^ 


20  IF  (lOUT  .EQ. 

IF  (lEXIT  .EQ. 

IF  (lEXIT  .EQ. 

IF  (lEXIT  .EQ. 

IF  (lEXIT  .EQ. 
30  CONTINUE 
FOR  THE  ELLIPTIC 


GO  TO  30 


WRITE 
WRITE 
WRITE 
WRITE 


(IW, 
(IW, 
(IW, 
(IW, 


1) 
2  ) 
3) 
<*) 


XR 

XR 

XR,  NUMSIG 

MAXIT 


CASE  XS  ANND  XF  ARE  DETERMINED,  SO  GO  BACK. 


IF  (NTYPE  .LT.  2)  THEN 

CALL  FINDM  ( T  .M,N  ,XS ,XF  ) 

CALL  PRESS  (XLE,UO,CP) 

GO  TO  90 
END  IF 
NOW  00  THE  SAME  FOR  XS 

PRINT  *,  '    VALUE  OBTAINED  FOR  XF ' ,XF 
PRINT  *,  '    --  WORKING  ON  XS.' 
EVALUATE  PREVIOUS  X  VALUE 

CALL  FINDM  ( T  ,M,N  ,XSPREV,XF  ) 
CALL  PRESS  (XLE,UO,CP  ) 
YSPREV  =  UO 
EVALUATE  INITAL  GUESS  FOR  X  VALUE 
CALL  FINDM  ( T  ,M ,N  .XS,XF  ) 
CALL  PRESS  (XLE,UO,CP) 
YS  =  UO 

IF  (lOUT  .GT.  11  WRITE  ( IW,5 )  XSPREV,  YSPREV,  XS,  YS 
IF  (YSPREV*YS  .GT.  0.0)  THEN 

I  =  -2 

PRINT  201 

RETURN 
END  IF 

COMPUTE  SEQUENCE  OF  POINTS  CONVERGING  TO  THE  ROOT 
lEXIT  =  1 
DO  "+0  K  =  l,  MAXIT 

XR    =    (XSPREV    +    XS)/2.0 
CALL    FirJDM    (T,M,N,XR,XF) 
CALL    PRESS    (XLF,UO,CP) 
Y    =    UO 
CHECK   ON   STOPPING   CRii  TERIA 

DELTAXS  =  XSPREV-XR 

XERR  =  ABS( XSPREV-XR  )/2.0 

IF  (lOUT  .GT.  1)  WRITE  (IW,6)  K ,XR,Y , DELTAXS 

(Y  .EQ.  0.0  1  lEXIT  =  2 

(ABS( Y  '  .LE.  FTOL  )  lEXIT  =  3 

(  XtRR  .LE.  XTOL  I  lEXIT  =  7 

(lEXIT  .GT.  1  )  GO  TO  50 

(Y*YSPREV  .GT.  0.0)  THEN 

XSPREV  =  XR 

YSPREV  =  Y 
ELSE 

XS  =  XR 

YS  =  Y 
END  IF 
40  CONTINUE 
THE  MAXIMUM  ITERATIONS  HAS  BEEN  EXCEEDED , WITHOUT  FINDING  A  ROOT. 


IF 
IF 
IF 
IF 
IF 


lEXIT  =  4 
50  IF  (ICUT  .EQ.  0 


IF  (lEXIT  .FQ.  1 

IF  (lEXIT  .EQ.  2 

IF  (lEXIT  .EQ.  3 

IF  (lEXIT  .EQ.  4 

IF  (lEXIT  .EQ.  7 
90  RETURN 


RETURN 
)  WRITE 
)  WRITE 
)  WRITE 
)  WRITE 


(IW, 

(IW, 
(IW, 


1)  XR 

2)  XR 

3)  XR,  NUMSIG 


(IW,  4)  MAXIT 


)  WRITE  (IW,  7)    XR,  XTOL 


THIS  SHOULD  RETURN  WITH  UO  NEAR  ZERO  AND  A  GOOD  VALUE  OF  XS. 

1  FORMAK  'OSLOPE  =  0  WHEN  X  =",G12.7,".   ITERATION  DISCONTINUED.') 

"  FORMAT ( 'OCOMPUTED  F(  ',G12.7,')  IS  0.   ITERATION  DISCONTINUED.') 


FORMAT ( 'OROOT: 
FORtlAK  "ODESIRED 
FORMAT ( 'OHALVING  METHOD; 
'0  k'  ,'4X, 


,Gi2:7,  ■ .  Appears  to  be  accurate  to  ■ ,ii,'s. ■  ) 

At^CURACY    IS   not    EVIDENT    IN    ',15,'    ITERATICDNS.  '  ) 
X<J-1!,    X<0!    ARE    INITIAL   GUESSES.',/, 

,  "X  =  Xk',7X,'Y  =  F(X)' ,7X, 'X-XPREV  ,/, 

S        '  -1    '2  G12.7,  E12.5,  /,'   0    ',  G12.7,  El2.5) 

6  F0RMAT(I3,  3X,  (512.7,  E12.5,  E15.5) 

7  FORMAT (  'OX  L0(iATI0N:  ',G12.7,'  IS  WITHIN  X  TOLERANCE  OF  ',E12.5) 
201  FORMAK  'OFUNCTION  HAS  THE  SAME  SIGN  AT  BOTH  INITIAL  POSITIONS.' 

S       ,/,'OTHE  BUILT-IN  ITERATION  SCHEME  WILL  NOT  WORK,  THEREFORE' 
8       ,/,'OYOU  MUST  SELECT  THE  ENDPOINTS  MANUALLY.') 
END 
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Introduction 

The  purpose  of  the  PANEL  program  is  lo  provide  an  analysis  of  the  aerodynamics  of 
XACA  four-digit  airfoils  and  airfoils  of  the  NACA  230XX  family  using  the  panel 
method.  This  program  has  been  modifed  to  accept  arbitraiy  airfoil  surface  coordinate 
input. 

Assumptions  and  Limitations 

This  program  is  limited  to  single-element  airfoils.  The  solution  is  determined  for  condi- 
tions of  incompressible  and  inviscid  irrotational  flow.  Since  we  are  considering  an 
inviscid  fluid,  the  coefficient  of  drag  provided  in  the  results  is  for  the  induced  drag  com- 
ponent only. 

Input  Description 

As  with  the  DUBLET  program,  there  are  very  few  input  values  required  for  this  simple 

program.    Their  description  and  program  variable  names  are  listed  below. 

NUPPER  -  Number  of  nodes  on  the  upper  surface. 

NLO\\'ER  -  Number  of  nodes  on  the  lower  surface. 

X(I),Y(I)  -  Surface  coordinates.  These  may  be  entered  from  the  keyboard,  from  a  data 
file,  or  from  data  statements.  The  program  is  capable  of  generating  an  approximation 
for  airfoils  of  the  NACA  XXXX  and  2M)XX  series. 

ALPHA  -  Angle  of  attack.  (Angle  between  the  chord  and  the  freestream  velocity.) 

Input  Restrictions 

The  program,  as  written,  is  limited  to  lUO  total  surface  nodes.  This  may  be  modified  by 
changing  the  size  of  the  arrays,  however  only  a  very  complex  surface  should  require  that 
many  values  to  accurately  define  the  surface.  If  that  is  the  case,  a  more  sopliisticated 
program  should  be  considered  for  the  investigation.  As  mentioned  above,  the  computer 
generated  approximations  to  airfoil  shapes  are  limited  to  the  NACA  XXXX  and  230XX 
series.  The  program  will  accept  values  for  ALPHA  up  to  90  degrees,  but  the  user  is 
cautioned  that  since  separation  usually  begins  at  about  10  to  15  degrees,  results  for  val- 
ues above  15  may  be  suspect. 

Sample  Problem 

A  few  sample  problems  will  illustrate  the  use  of  the  PANEL  program.  The  first  run  will 
be  done  using  an  approximation  to  a  NACA  0012  airfoil  which  is  generated  by  the 
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program  using  the  information  associated  with  each  digit  in  the  \ACA  number.  The 
second  run  will  analyze  a  NASA  LS(1)-0013  airfoil  using  a  set  of  data  statements  con- 
taining the  airfoil  surface  coordinates.  These  statements  must  be  inserted  into  the 
proper  location  in  the  program  prior  to  running  it. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 
Next,  ensure  that  the  program  is  in  your  directory  by  typing 

DIR  [Return] 
and  viewing  the  files  for  PANEL.EXE  and  PANEL.OBJ.    If  only  the  PANEL. FOR  file 
exists,  you  must  compile  the  program  by  typing, 

FOR  PANEL  [Return] 
The  next  step  is  to  link  the  program  by  entering, 

LLNK  PANEL  [Return] 
The  files  PANEL.EXE  and  PANEL.OBJ  will  now  exist  and  you  will  be  able  to  run  the 
program. 

Running  the  Program 

To  run  the  program,  type 
PANEL  [Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Fieure  20. 


PROGRAM  PANEL 

SMITH-HESS  (DOUGLAS)  PANEL  METHOD 
FOR  A  SINGLE-ELEMENT  LIFTING  AIRFOIL 
IN  TWO-DIMENSIONAL  INCOMPRESSIBLE  FLOW 

DO  YOU  WISH  TO: 

1)  USE  AIRFOIL  SURFACE  COORDINATE  DATA  VALUES. 

2)  HAVE  COMPUTER  GENERATE  AN  APPROXIMATION 
FOR  A  NACA  XXXX  OR  230XX  AIRFOIL  SECTION. 

3)  QUIT  THE  PROGRAM. 
ENTER  1,  2,  OR  3 


Figure  20.       Initial  Screen  for  Program  PANEL 


45 


For  the  first  case  we  will  have  the  computer  generate  an  approximation  for  the  shape 
of  a  XACA  0012  airfoil,  consisting  of  20  surface  panels,  using  an  algorithm  contained 
in  subroutine  NACA45.  The  angle  of  attack  of  the  onset  flow  will  be  six  degrees.  To 
use  the  approximation  method,  enter 

2  [Return] 
Respond  to  the  request  for  the  number  of  surface  data  points  by  entering 

20  [Return] 
Confirm  the  number  of  surface  data  points  you  desire  by  entering 

1  [Return] 
Although  the  program  will  allow  a  different  number  of  upper  and  lower  surface  data 
points,  it  is  recommended  that  you  try  and  keep  them  equal.    An  unequal  number  oi^ 
nodes  yields  trailing-edge  panels  of  unequal  length,  which  lowers  the  accuracy  of  the 
approximation  to  the  Kutta  condition.    Respond  to  this  question  by  entering 

1  [Return] 
The  next  question  asks  for  the  NACA  number  of  the  airfoil  you  are  considering.    For 
this  case  we  will  look  at  the  NACA  0012,  so  enter 

0012  [Return] 
The  screen  should  now  look  like  what  is  shown  in  Fisure  21. 


:o 


ENTER  NUMBER  OF  SURTACE  DATA  POINTS  DESIRED 
) 
NUMBER  OF  SURFACE  DATA  POINTS  TO  BE  GENERATED  = 

IS  THIS  VALUE  CORRECT?  (YES=1,  N0=2) 


ARE  THE  NUMBER  OF  UPPER  AND  LOWER  SURFACE 
DATA  POINTS(NODES)  EQUAL?  (YES=1,  N0=2) 


20 


1 


INPUT  NACA  NUMBER,  ANY  FOUR-DIGIT  OR  230XX  SERIES 
0012 


INPUT  ALPHA  IN  DEGREES  (ALPHA  >  90  TO  EXIT  LOOP) 


Figure  21.       Screen  Sho\>ing  Data  for  Computer  Generated  Airfoil 
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The  program  is  now  ready  to  perform  its  calculations.  The  final  piece  of  information 
required  is  the  angle  of  attack,  ALPHA.  By  entering  values  of  ALPHA  that  are  less  than 
90  degrees,  you  may  look  at  as  many  different  angle  of  attack  cases  as  you  desire.  En- 
tering a  value  for  ALPHA  that  is  greater  than  90  degrees  will  cause  the  program  to  stop 
the  present  airfoil  analysis  and  provide  you  with  a  choice  of  exiting  the  program  or  ex- 
amining another  airfoil.    For  this  case,  respond  to  the  question  by  entering 

6  [Return] 
Following  entr}'  of  the  angle  of  attack,  the  program  begins  the  solution  process.  Values 
scroll  up  the  screen  and  are  simultaneously  being  written  to  the  data  files.    When  the 
solution  is  complete  you  should  see  the  screen  shown  in  Figure  22. 


PROGRAM  PANEL 

RESULTS  HAVE  BEEN 

WRITTEN 

TO 

FILES: 

PBODY. 

DAT   : 

BODY  SURFACE  COORDINATES 

PPRES. 

DAT   : 

SURFACE  PRESSURE 

DISTRIBUTION 

DO  YOU  WISH  TO: 

1)  MAKE 

ANOTHER  RUN  OR 

2)  END  THIS  SESSION 

ENTER 

1  OR  2. 

Figure  22.       Run  Completion  Screen 

Say  you  have  finished  your  analysis  of  the  XACA  0012  at  this  point  and  you  want  to 
examine  another  airfoil.  Enter  a  value  cf  ALPHA  that  is  greater  than  90  degrees,  such 
as 

99  [Return] 
A  new  screen  will  be  presented  and  the  program  now  asks  if  you  want  to  make  another 
run.  Enter 

1  [Return] 
This  time  the  sample  problem  will  examine  a  NASA  LS(1)-0013  whose  coordinates  have 
been  entered  as  data  statements  in  the  program.   You  should  now  be  back  at  the  initial 
screen  and  it  should  look  like  Figure  20.  Since  you  will  be  using  actual  airfoil  coordinate 
data  values,  enter 
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1  [Return] 

The  screen  shown  in  Figure  2?  now  presents  you  with  the  three  choices  available  for 
entering  the  airfoil  surface  coordinate  data  values.     Vou  will  be  using  the  data  state- 
ments, so  enter 
3  [Return] 


DO   YOU  WISH  TO   ENTER  THE   SURFACE   COORDINATE   VALUES: 

1)  FROM  A  DATA  FILE. 

2)  FROM  THE  KEYBOARD. 

3)  USING  DATA   STATEMENTS   ALREADY  ENTERED 

IN  THE   MAIN   PROGRAM.     ""   NOTE   ^''-  THIS   REQUIRES 
THAT  PROGRAM  BE  MODIFIED   IN  ADVANCE   BY  MOVING 
DATA   STATEMENTS   TO  THE   CORRECT   LOCATION. 
ENTER    1,    2,    OR   3.       (FOR   PREVIOUS   MENU  ENTER  4) 


Figure  2.^.       Menu  for  Surface  Coordinate  Data  Entry  Method 


The  number  of  data  points  has  been  entered  via  the  data  statements,  therefore  you  are 
not  asked  that  question  for  this  case.    For  the  angle  of  attack,  again  enter 

6  [Return] 
As  you  saw  in  the  previous  example,  values  scroll  up  the  screen.    These  solutions  will 
be  appended  to  the  solutions  for  the  NACA  0012  airfoil.   The  data  files  are  overwritten 
only  when  a  new  session  (from  the  DCL  prompt)  is  started. 
The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 

2  [Return] 

This  completes  the  sample  problems  for  the  PANEL  program.  The  data  files  created 
by  these  sample  runs  and  the  listing  for  the  PANEL  program  are  on  the  following  pages. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 


Sample  problem  1:   NACA  0012  Airfoil 


DATA 

FILE: 

PBODY.  D. 

BODY 

SHAPE 

X 

Y 

1. 

0000 

0.0000 

0. 

9755 

-0.  0034 

0. 

9045 

-0.  0129 

0. 

7939 

-0.  0261 

0. 

6545 

-0.  0404 

0. 

5000 

-0. 0526 

0. 

3455 

-0. 0594 

0. 

2061 

-0.  0577 

0. 

0955 

-0. 0460 

0. 

0245 

-0.  0259 

0. 

0000 

0.0000 

0. 

0245 

0. 0259 

0. 

0955 

0.  0460 

0. 

2061 

0.  0577 

0. 

3455 

0. 0594 

0. 

5000 

0.  0526 

0. 

6545 

0.  0404 

0. 

7939 

0.0261 

0. 

9045 

0.  0129 

0. 

9755 

0.  0034 
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Sample  problem  2:   NASA  LS(1)-001?  Airfoil 


BODY   SHAPE 


1. 

0000 

0. 

0000 

0. 

9000 

-0. 

0116 

0. 

8000 

-0. 

0265 

0. 

7000 

-0. 

0420 

0. 

6000 

-0. 

0546 

0. 

5000 

-0. 

0621 

0. 

4000 

-0. 

0645 

0. 

3000 

-0. 

0632 

0. 

2000 

-0. 

0575 

0. 

1000 

-0. 

0454 

0. 

0753 

-0. 

0407 

0. 

0500 

-0. 

0346 

0. 

0247 

-0. 

0261 

0. 

0126 

-0. 

0194 

0. 

0000 

0. 

0000 

0. 

0130 

0. 

0189 

0. 

0250 

0. 

0258 

0. 

0499 

0. 

0347 

0. 

0750 

0. 

0408 

0. 

1000 

0. 

0454 

0. 

2000 

0. 

0575 

0. 

3000 

0. 

0631 

0. 

4000 

0. 

0643 

0. 

5000 

0. 

0620 

0. 

6000 

0. 

0545 

0. 

7000 

0. 

0418 

0. 

8000 

0. 

0264 

0. 

9000 

0. 

0117 
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Sample  problem  1:   NACA  0012  Airfoil 

DATA  FILE:   PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  =    6. 000 

PRESSURE  DISTRIBUTION 
X        CP 


0. 

9878 

0. 

2339 

0. 

9400 

0. 

1316 

0. 

8492 

0. 

0728 

0. 

7242 

0. 

0362 

0. 

5773 

0. 

0155 

0. 

4227 

0. 

0180 

0. 

2758 

0. 

0680 

0. 

1508 

0. 

2129 

0. 

0600 

0. 

5547 

0. 

0122 

0. 

9318 

0. 

0122 

-2. 

4438 

0. 

0600 

-1. 

7390 

0. 

1508 

-1. 

1500 

0. 

2758 

-0. 

8021 

0. 

4227 

-0. 

5537 

0. 

5773 

-0. 

3638 

0. 

7242 

-0. 

2101 

0. 

8492 

-0. 

0717 

0. 

9400 

0. 

0706 

0. 

9878 

0. 

2339 

CD  =  0.00721    CL  =  0.  72235     CM  =-0.  18377    CMC4  =-0.  00398 
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Sample  problem  2:   NASA  LS(1)-0013  Airfoil 

DATA  FILE:       PPRESS.DAT 

ANGLE   OF  ATTACK   IN  DEGREES  =  6.  000 


PRESSURE  DISTRIBUTION 

X 

CP 

0.9500 

0. 

1566 

0. 8500 

0. 

0713 

0.  7500 

0. 

0003 

0.6500 

-0. 

0572 

0.5500 

-0. 

0700 

0.4500 

-0. 

0332 

0.  3500 

0. 

0239 

0. 2500 

0. 

1047 

0.  1500 

0. 

2627 

0.0877 

0. 

3930 

0.  0627 

0. 

4956 

0.0373 

0. 

6714 

-  ■  0.  0186 

0. 

8801 

0.  0063 

0. 

7672 

0.0065 

-2. 

2382 

0.  0190 

-2. 

6638 

0. 0375 

-1. 

9526 

0.  0625 

-1. 

5750 

0.0875 

-1. 

3623 

0.  1500 

-1. 

0520 

0.  2500 

-0. 

8380 

0.3500 

-0. 

7090 

0.4500 

-0. 

6245 

0.  5500 

-0. 

5094 

0.6500 

-0. 

3375 

0.  7500 

-0. 

1369 

0.  8500 

0. 

0365 

0.9500 

0. 

1566 

CD  =  0. 00324 


CL  =  0.  69366 


CM  =-0.  16505 


CMC4  =  0.00750 
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PROGRAM  PANEL  LISTING 

PROGRAM  PANEL 

C  ***  MODIFIED  FOR  USE  ON  THE  MICROVAX/2000  BY  J. A.  CAMPBELL  (JUL  88) 
C      FINAL  UPDATES  MADE  1<+  SEP  88  -  ( JAC  ) 

C  PROGRAM  PANEL 

C 

C        SMITH-HESS  (DOUGLAS)  PANEL  METHOD 

C         FOR  SINGLE-ELEMENT  LIFTING  AIRFOIL 

C        IN  TWO-DIMENSIONAL  INCOMPRESSIBLE  FLOW 

C 

c 

C       SUBROUTINES  QUERY  AND  CLRSCRN  ADDED  TO  ORIGINAL  PROGRAM. 

C 

C       THE  FILE  OPEN  STATEMENTS  WERE  ADDED  IN  LIEU  OF  THE  EXEC  FILE 

C       METHOD  USED  ON  THE  IBM  MAirJFRAME. 

C 

c 

C  ORIGINAL  IBM  MAINFRAME  PROGRAM  WAS  ADAPTED  FROM  JACK  MORAN'S  BOOK 

C  'AN  INTRODUCTION  TO  THEORETICAL  AND  COMPUTATIONAL  AERODYNAMICS', 

C  WILEY  AND  SONS,  NE''  YORK  19S<+.   THE  LISTING  IS  FOUND  ON  PAGE  118. 

C 

C  PROGRAM  FLEXIBILIT.  AND  USER  INTERFACE  WAS  REVISED  FOR 

C  PROFESSOR  J.V.  HEALEY  BY  JOHN  CAMPBELL.    APRIL  1988. 

C 

c 
c 

C  THIS  PROGRAM  PROVIDES  THE  BODY  COORDINATES  AND  THE  SURFACE 

C  PRESSURE  DISTRIBUTION  ABOUT  A  SINGLE  ELEMENT  LIFTING  AIRFOIL 

C  IN  TWO-DIMENSIONAL  FLOW. 

C 

C  ESTIMATED  VALUES  FOR  LIFT  COEFFICIENT  AND  THE  MOMENT  COEFFICIENT 

C  ABOUT  THE  LEADING  EDGE  AND  QUARTER  CHORD  ARE  DETERMINED  FROM  THE 

C  PRESSURE  COEFFICIENTS  OF  EACH  PANEL. 

C 

C  YOU  MAY  PROVIDE  ACTUAL  AIRFOIL  SURFACE  COORDINATE  DATA  VALUES  OR 

C  HAVE  THE  COMPUTER  GENERATE  AN  APPROXIMATION  FOR  THE  COORDINATES 

C  OF  A  NACA  XXXX  OR  230XX  AIRFOIL  SECTION. 

C 

C  IF  YOU  DESIRE  TO  ENTER  THE  SURFACE  COORDINATE  VALUES,  SEVERAL 

C  OPTIONS  ARE  AVAILABLE.   YOU  MAY  ENTER  THEM  1)  FROM  A  DATA  FILE, 

C  2)  FROM  THE  KEYBOARD  OR  3  1  USirJG  DATA  STATEMENTS  ALREADY  ENTERED 

C  AT  THE  END  OF  THE  MAIN  PROGRAM  LISTING. 

C 

C  IF  INPUTTING  YOUR  OWN  DATA,  REMEMBER  TO  START  AT  THE  TRAILING  EDGE 

C  (X/C  =  1.0),  AND  WORK  TOWARDS  THE  LEADING  EDGE,  ENTERING  THE  LOWER 

C  SIDE  FIRST,  FOLLOWED  BY  THE  UPPER  SURFACE.   DO  NOT  ENTER  THE 

C  TRAILING  EDGE  TWICE.   TRY  TO  ENTER  A  SUFFICIENT  NUMBER  OF  POINTS 

C  NEAR  THE  r^OSE  FOR  GOOD  RESOLUTION. 

C 

C  ***  NOTE:  TO  SATISFY  THE  COROLLARY  TO  THE  KUTTA  CONDITION,  X  VALUES 

C  FOR  POINTS  2  AND  N  MUST  BE  THE  SAME.  THIS  ENSURES  THAT  THE 

C  LAST  PANELS,  UPPER  AND  LOWER,  ARE  OF  EQUAL  SIZE.  ** 

C 

C  CD  IS  JUST  AN  INDICATOR  OF  NUMERICAL  ACCURACY  OF  THIS 

C  PROGRAM.  VALUE  OF  CD  SHOULD  BE  NEAR  ZERO. 

C 

C  IF  USING  DATA  STMTS  OR  AN  INPUT  FILE,  REMEMBER  THE  NUMBER 

C  OF  DATA  VALUES  AS  YOU  WILL  BE  ASKED  FOR  THIS  BY  THE  PROGRAM. 

C 

C  USE  OF  THE  DATA  STATEMENTS  REQUIRES  THAT  PROGRAM  BE 

C  MODIFIED  IN  ADVANCE  BY  MOVING  THEM  TO  THE  CORRECT  LOCATION. 

C 

INTEGER    NANS 

DIMENSION    Z(100),X(100),Y(100) 

C  ***  NOTE:  IF  YOU  CHANGE  SIZE  OF  X  AND  Y,  CHANGE  N  BELOW  ALSO  I     *** 
C 

DATA  X,  Y  /lOO^O. ,100^0./ 

COMMON  /BOD/  NODTOT ,COSTHE ( 100 ) ,SINTHE( 100 ) ,NFLAG 

COMMON  /PAR/  NACA,TAU,EPSMAX,PTMAX 

COMMON  /COF/  A( 101,111), KUTTA 

COMMON  /HIM/    PI,PI2INV 

COMMON  /CPD/  CP(IOO) 
C 

C    IF  USING  DATA  STMTS  FOR  X  AND  Y  VALUES,  PLACE  LINES  HERE. 
C  ***  FOLLOWING  DATA  IS  FOR  THE  NASA  LS(1)-0013  AIRFOIL  *^* 

DATA  NUPPER,  NLOWER  /li+jl^/ 

DATA  ( X( I  )  ,1  =  1 , 28  )/l . 0, . 90, . 80 , . 70 , . 60 , . 50 , . 40 , . 30 , . 20 , . 10 , 

1  0.07535,0.05,0.0247,0.01255,0.0,0.01301,0.025(35,0.04993,0.07498, 

2  0 . 10 , . 20 , . 30 , . 40 , . 50 , . 60 , . 70, . 80 , . 90/ 

C  ***  NOTE:  VALUE  FOR  TRAILING  EDGE  IS  SET  TO  0.000  VS  ACT  THICKNESS  * 
DATA  (Yd  ), I  =  1,28  I/O. 00000, -.01165, -.02654, -.04196, -.05459, 
1       -.06209, -.06453, -.06316, -.05755, -.04543, -.04070, -.03462, 

1  -.02612, -.01938, 0.0,. 01892,. 02583,. 03465,. 04075,. 04541, 

2  .05750, .06307, .06432, .06203, .05446, .04183, .02638,. 01172/ 

PI      =  3.1415926585 
C  **»  MAKE  SURE  THAT  N  CORRESPONDS  TO  THE  SIZE  OF  X  AND  Y  DIMENSION  ** 
N  =  100 

c 
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C  FOLLOWING  LINES  FOR  INPUT/OUTPUT  FILES  ADDED  BY  J. A.  CAMPBELL  (JUL88) 
C  OPEN  FILE  FOR  BODY  SURFACE  COORDINATE  OUTPUT 
OPEN  (UMIT=11, 

2       FILE=  'PBODY.DAT', 

2       0RGANIZAT10rj=  '  SEOUENTIAL  '  > 

2       ACCE5S=  'SEQUENTIAL', 

2       RECORDTYPE=  'VARIABLE', 

2       FORM=  'FORHATTED' , 

2     STATUS=  'ur.'KNOi:rr  1 

C  OPEN  FILE  FOR  PRESSURE  COEFFICIENT  OUTPUT 
OPEN  (UNIT=12, 
2      FILE=  'PPRESS.DAT', 
2       0RGANI2ATI0tJ=  'SEQUENTIAL', 
2       ACCESS=  'SEQUENTIAL', 
2       REC0RDTYPE=  'VARIABLE', 
2       F0RM=  'FORMATTED', 
2       STATUS=  'UNKNOWN') 
C 

60   CALL  INDATA(X,Y,N,NLOWER,NUPPER) 
CALL  SETUP(X,Y,N,NLOWER,NUPPER) 
100   PRINT  1000 

READ  r5,*l  ALPHA 

IF  I  ALPHA  .GT.  °0.)     GO  TO  200 
COSALF   =  COS(  ALPHA*^PI/180.  ) 
SINALF   =  SIN( ALPHA*PI/180.  ) 

CALL  COFISHISINALF, COSALF, X,Y,N,NLOWER,NUPPER) 
CALL  GAUSS( 1  I 

CALL  VELDISISINALF, COSALF, X,Y,N,NLOWER,NUPPER, ALPHA) 
CALL  FANDM(SINALF, COSALF, X,Y,N,NLOHER,NUPPER) 
60  TO  100 
200   CONTINUE 
C   CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 
CALL  CLRSCRN 
PRINT  ^ 

PRirJT  *,  '  PROGRAM  PANEL  RESULTS  HAVE  BEEN  WRITTEN  TO  FILES:' 
FRKJT  * 

PRINT  *,     '    PBODY.DAT    :   BODY  SURFACE  COORDINATES' 
PRINT  *,  '  PPRES.DAT    :   SURFACE  PRESSURE  DISTRIBUTION' 
PRINT  * 
PRINT  * 
C        OPTION  TO  MAKE  ANOTHER  RUN 
PRirJT  * 

PRI^JT  *,  '  DO  YOU  WISH  TO: 
PRINT  *,  '       1)  MAKE  ANOTHER  RUN  OR' 
PRINT  *,  '       2)  END  THIS  SESSION' 
PRINT  ^,  '  ENTER  1  OR  2. ' 
CALL  QUERY  (NANS) 
,'   IF  (NArJS  .EQ.  1)   (^O  TO  60 
STOP 
1000  FORMAT( /////, '  INPUT  ALPHA  IN  DEGREES  (ALPHA  >  90  TO  EXIT  LOOP)  ' 
EUD 

SUBROUTINE  INDATA( X,Y ,N,NLOWER ,NUPPER ) 

C 

C  SET  PARAMETERS  OF  BODY  SHAPE 

C  FLOW  SITUATION,  AND  NODE  DISTRIBUTION 

C  USER  MUST  INPUT 

C  NLCNER  =  NUMBER  OF  NODES  ON  LOWER  SURFACE 

C  NUPPER  =  NUMBER  OF  NODES  ON  UPPER  SURFACE 

C  PLUS  DATA  ON  BODY  AND  SUBROUTINE  BODY 


C 


REAL   X(Nt,Y(N) 
ItJTEGER    NUMPTS, I, STATUS 
CHARACTER'^20    ItJFILE 
INTEGER^2    INFILE    SIZE 
LOGICAL      EXIST      ~ 

COMMON  /BOD/  fJODTOT ,COSTKE ( 100  )  ,SINTHE( 100 ) ,NFLAG 
COMMON  /PAR/  NACA,TAU,EPSMAX,PTMAX 
CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 
5  CALL  CLRSCRN 
PRINT  * 
PRINT  * 
PRINT  *y     '  PROGRAM  PANEL   ' 


PRirjT 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  ^ 
PRINT  *, 
PRINT  *, 
PRirJT  *, 
PRINT  *, 
PRINT  *, 
PRINT  ^, 


SMITH-HESS  ( DOUGLAS  1  PANEL  METHOD' 
FOR  A  SINGLE-ELEMENT  LIFTING  AIRFOIL' 
IN  TW0-DIMENSI0r4AL  INCOMPRESSIBLE  FLOW' 


DO  YOU  WISH  TO: 

1)  USE  AIRFOIL  SURFACE  COORDINATE  DATA  VALUES.' 

2)  HAVE  COMPUTER  GENERATE  AN  APPROXIMATION' 
FOR  A  NACA  XXXX  OR  230XX  AIRFOIL  SECTION. ' 

5)  QUIT  THE  PROGRAM. ' 
ENTER  1,  2,  OR  3' 
READ  (S,*)   NFLAG 
GO  TO  ( 10,50,999  1  NFLAG 
C  ****    ROUTINE  TO  INPUT  SHAPE  FROM  DATA  FILE,  KEYBOARD  OR  DATA  STMTS  ** 
10  CALL  CLRSCRN 
PRINT  * 


PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 


DO  YOU  WISH  TO  ENTER  THE  SURFACE  COORDINATE  VALUES:  ' 

1)  FROM  A  DATA  FILE. ' 

2 )  FROM  THE  KEYBOARD. ' 

3)  USING  DATA  STATEMENTS  ALREADY  ENTERED' 
IN  THE  MAIN  PROGRAM.  **  NOTE  »»  THIS  REQUIRES' 
THAT  PROGRAM  BE  MODIFIED  IN  ADVANCE  BY  MOVING' 
DATA  STATEMENTS  TO  THE  CORRECT  LOCATION. ' 

ENTER  1,  2,  OR  3.   (FOR  PREVIOUS  MENU  ENTER  <*)• 
12  READ  (5,*)   IFLAG 

IF  (IFLAG  .EQ.  <+ )  GO  TO  5 
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IF  (IFLA6  .LT.  1  .OR.  IFLA6  . GT .  3)   THEN 

PRItJT  *,  'INVALID  ENTRY.  ENTER  1,  2,  OR  3.' 
GO  TO  1^ 

END  IF 

IF  (IFLAG  .EQ.  31   GO  TO  100 
****  CUE  THE  USER  TO  ENTER  THE  NUMBER  OF  DATA  POINTS  ( NUMPTS ) 
15  CALL  CLRSCRN 

PRINT  * 

PRINT  *,  'ENTER  NUMBER  OF  DATA  POINTS' 

READ  *,  NUMPTS 
i(***   ECHO  CHECK  THE  INPUT 

PRINT  *, "NUMBER  OF  DATA  POINTS  TO  BE  ENTERED  =', NUMPTS 

PRINT  * 

PRINT  *,'IS  THIS  VALUE  CORRECT?  (YES=1,  N0=2 ) ' 

READ  *,  Ml 

IF  (Ml  .GT.  11  GO  TO  15 

CALL  NODES! NUMPTS,NLOWER,NUPPER) 
C  *»**  SEND  CONTROL  TO  DATA  FILE  OR  KEYBOARD  ENTRY  ROUTINE  **** 

GO  TO  ( 20,30,100)  IFLAG 

C  ***  DATA  FILE  READ  ROUTINE 

C 

C   LIB$GET  INPUT  IS  A  VAX  LIBRARY  ROUTINE.   IT  MAY  BE  REPLACED  BY  AN 

C    EQUIVALENT  WRITE/READ  TO  GET  THE  FILENAME  INTO  THE  PROGRAM. 


C 


The  input  file 
Prompt 
Filename  size 


20  STATUS  =  LIB$GET  INPUT  (INFILE, 

2        'ENTER  THE  DATA  FILE  NAME:   ', 

2  INFILE  SIZE  )    ^ 

C   CHECK  TO  SEE  IF  THE  FILE  EXISTS  BEFORE  TRYING  TO  ACCESS  IT 
IF  (INFILE  .EQ.  'QP9')  GO  TO  5 
INQUIRE  (FILE  =  INFILE  (1:INFILE  SIZE),  EXIST  =  EXIST) 
IF  ( .NOT.  EXIST)  THEN 
PRINT  * 

PRIfJT  *,  '  THAT  FILE  NAME  DOES  NOT  EXIST.' 
PRirJT  *,  '  (ENTER  999  TO  RETURN  TO  MENU ) . ' 
PRINT  * 
GO  TO  20 
END  IF 
C  OPEN  FILE  FOR  SURFACE  COORDINATE  INPUT 
OPEN  (UNIT=13, 
2      FILE=  INFILE, 
2      ORGANIZATICN=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2       RECORDTYPE=  'VARIABLE', 
2      F0RI1=  'FORMATTED', 
2      STATUS=  'OLD'  ) 
DO  25    I  =  l,NUt1PTS 

READ  (3,*  )  X(I  ),Y(I ) 
PRINT  1010,  X(I  ),Y(I  ) 
25  CONTIN'JE 
1010  F0Rt1AT(  F10.4,F10.^) 
GO  TO  100 

C  ****  ROUTINE  TO  ENTER  DATA  FROM  THE  KEYBOARD  ***** 
30  CALL  INPUT(X,Y, NUMPTS) 
GO  TO  100 

«**************^4******************************************************* 

C  ****  ROUTINE  TO  CALCULATE  SHAPE,  GIVEN  NACA  NUMBER  ***** 
50  CALL  CLRSCRN 

PRINT  * 

PRINT  *,  '   ENTER  NUMBER  OF  SURFACE  DATA  POINTS  DESIRED' 

READ  *,  NUMPTS 
****   ECHO  CHECK  THE  INPUT 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,'   NUMBER  OF  SURFACE  DATA  POINTS  TO  BE  GENERATED  =' .NUMPTS 

PRINT  * 

PRINT  *,'   IS  THIS  VALUE  CORRECT?  (YES=1,  N0=2)' 

READ  *,  Ml 

IF  (Ml  .GT.  1)  GO  10  50 

CALL  N0DES( NUMPTS, NL0WER,NUPPER) 

PRINT  * 

PRINT  *,  '   INPUT  NACA  NUMBER,  ANY  FOUR-DIGIT  OR  230XX  SERIES' 

READ  (5,*)  NACA 

lEPS     =  NACA/1000 

IPTMAX   =  NACA/100  -  10*IEPS 

ITAU     =  NACA  -  1000*IEPS  -  100*IPTMAX 

EPSMAX   =  IEPS*0.01 

PTMAX    =  IPTMAX*0.1 

TAU      =  ITAU*0.01 

IF  (lEPS  .LT.  10)  RETURN 

PTMAX    =  0.2025 

EPSMAX   =  2.6595*PTMAX**3 
100  RETURN 
999  STOP 

END 

******************************************** X  X  K  K  K  X***-»»KX****X  X  K  K  X  W  K*** 

SUBROUTINE  NODES(  NUMPTS, NLOWER ,NUPPER  ) 

*******************************************************  **»X  X  X  X  X  X  X  X  X  x*»* 

C 

C  »*»*  CALCULATE  NLOWER  AND  NUPPER  FOR  LATER  USE  *** 
PRINT  * 

PRINT  *,'   ARE  THE  NUMBER  OF  UPPER  AND  LONER  SURFACE' 
PRINT  *,'   DATA  POINTS( NODES  )  EQUAL?  (YES=1,  N0=2  ) ' 
READ  *,  Ml 
IF  (Ml  .EQ.  1)  THEN 
NLO'NER  =  NUMPTS/2 
NUPPER  =  NLOWER 
ELSE 

CALL  CLRSCRN 
PRINT  * 
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PRINT  *,     •    TOTAL  NUMBER  OF  SURFACE  POINTS  =',  NUMPTS 
20     PRINT  *,  ' ■ 

PRirJT  * 

PPir;T  *,  '  ItiPUT  NUI1BER  OF  LOWER  SURFACE  POINTS,  NLOWER' 
READ  (5,*)    NLOWER 

PRINT  *,  ■  INPUT  NUr.BER  OF  UPPER  SURFACE  POINTS,  NUPPER' 
READ  (5,*)    NUPPER 
NTEST  =  NLOWER  +  NUPPER 
IF  (NTEST  .NE.  NUMPTS)  THEN 
PRINT  ^,  '   OKAY,  TRY  IT  AGAIN  EINSTEIN.   REMEMBER  ADDITION?' 
PRIfJT  *,  '   NLOWER  +  NUPPER  MUST  EQUAL ', NUMPTS 
GO  TO  20 
END  IF 
END  IF 
RETURN 
END 

SUBROUTINE  INPUT(A,B,N) 

*-SWt********i^*^***>r^(*3r*Ht****^************if  ***************  S^**********  it*** 

INTEGER  N,I 

DIMENSION  ACN),  B(N1 
****   CUE  THE  USER  TO  INPUT  X  VALUES 

10   PRINT  *,  'ENTER  X  VALUES  AS  MANY  PER  LINE  AS  DESIRED' 

READ  *,  (A(I  ),  I  =  1,N) 
****   ECHO  CHECK  THE  INPUT 

PRINT  20,  N 
20   FORMAT  (/IX, 'TABLE  OF',  12,'  X  VALUES: '/IX, 21(  '  =  ')  ) 

PRINT  30,  ( A(I  ),  1=1, N) 
30   FORMAT  ( ix,3F10.6  ) 

PRINT  *,'ARE  THE  VALUES  CORRECT?  (YES=1,  N0=2)' 

READ  *,  Jl 

IF  (Jl  .6T.  1)  GO  TO  10 
****   CUE  THE  USER  TO  INPUT  Y  VALUES 

35   PRINT  *, 'ENTER  Y  VALUES  AS  MANY  PER  LINE  AS  DESIRED' 

READ  *,  (BIJ  I,  J  =  1,N) 
****   ECHO  CHECK  THE  INPUT 

PRINT  -^0,  N 
40   FORMAT  (/1X,'TABLE  OF',  13,'  Y  VALUES:  '/IX ,21(  '  =  ')  ) 

PRINT  30,  (B(J),  J=1,N) 

PRINT  *,'ARE  THE  VALUES  CORRECT?  (YES=1,  N0=2  ) ' 

READ  *,  Kl 

IF  (Kl  .GT.  1)  GO  TO  35 

RETURN 

END 
C  ******************************************************************** 

SUBROUTINE  SETUP( X,Y ,N .NLOWER , NUPPER  ) 

C   *****^*?«r'»r-^f*^J(^^^^i(^^^^^X***Jt^************;?T*************************** 

REAL  X(N),Y(N) 

COMMON  /BOD/  NODTOT ,COSTHE( 100  )  ,SINTHE ( 100  )  ,NFLAG 

COMMON  /KUM/  PI,PI2INV 
C      COMMON  /SKAL/  NZERCYMULT 

PI       =  3.141592oS8S 

PI2INV   =  .5/PI 
C     NZERO    =  31 
C     YMULT    =  200 
C 

C  SET  COORDINATES  OF  NODES  ON  BODY  SURFACE 

C 
C     PRINT  1000 

WRITE  (11,1000) 

NPOINT   =  NLOWER 

SIGN     =  -1.0 

NSTART   =  0 

DO  110   NSURF  =  1,2 

DO  100   N  =  1, NPOINT 

FRACT    =  FL0AT(N-1  1/FL0AT( NPOINT) 

Z       =  .5^(1.  -  COS(PI*FRACT  )  ) 

I        =  NSTART  +  N 

IF  (NFLAG  .EQ.  1  )  GO  TO  90 

CALL  BODY(Z;SIGN,X(I  ),Y(I  )) 
C      CALL  PLOTXY(X(I  ),Y(I  )) 

90   WRITE  (11,1010)  X(I),Y(I) 
C      PRINT  1010,  X(I  ),Y(I  ) 
100   CONTINUE 

NPOINT  =  NUPPER 

SIGN     =1.0 

NSTART   =  NLOWER 
110   CONTINUE 

NODTOT   =  NLOWER  +  NUPPER 

X(h40DT0T  +  l  )    =   X(  1) 

Y(N0DT0T  +  1)    =    Yd) 
C 

C  SET  SLOPES  OF  PANELS 

C 

DO  200   I  =  1, NODTOT 

DX      =  X(I  +  1  )  -  X(I) 

DY      =  Y(I  +  1)  -  Yd  ) 

DIST     =  SQRKDX*^-;  +DY*DY  ) 

SINTHEd  )     =  DY/DIST 

COSTHEd  )     =  DX/DIST 
200   CONTINUE 

1000  FORMAT (/////,'  BODY  SHAPE ' ,//,4X, 'X' ,9X, 'Y ',/ ) 
1010  FORMAT(F10.4,F10.4) 

RETURN 

END 
C  ******************************************************************** 

SUBROUTINE  BODY( Z ,SIGN,XI ,YI ) 
C  ******************************************************************** 

c 

C  RETURN  COORDINATES  OF  POINT  ON  THE  BODY  SURFACE 

C 
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Z  =  NODE-SPACING  PARAMETER 
X,Y  =  CARTESIAN  COORDINATES 
SIGN  =  +1.  FOR  UPPER  SURFACE 
-1.  FOR  LOWER  SURFACE 

COMMON  /PAR/  NACA,TAU,EPSMAX,PTMAX 

IF  (SIGN  .LT.  0.01     2=1.  -Z 

CALL  NACA'+S(Z, THICK, CAMBER, BETA  I 

XI       =  Z  -  SIGN*THICK*S1NIBETA) 

YI       =  CAMBER  +  SIGN*THICK'(COS(BETA) 

RETURN 

END 

SUBROUTINE  NACA45( Z .THICK , CAMBER , BETA  ) 
*****^^*******^****^*****j(*****if**if  ********************************* 
COMMON  /PAR/  NACA,TAU,EPSMAX,PTMAX 

EVALUATE  THICKNESS  AND  CAMBER 
FOR  NACA  4-  OR  5-DIGIT  AIRFOIL 


THICK    =0.0 

IF  (Z  .LT.  l.E-10)     GO  TO  100 
THICK    =  5.*TAU*( .2969^SQRT(Z)  -  Z*( 
+  -  Z*l  .2843  -  Z*.1015)  )  )) 

100   IF  (EPSMAX  .EQ.  0.0)  GO  TO  150 
IF  (NACA  .GT.  9999)  GO  TO  140 
--   -   -   pTMAX)  GO  TO  110 

EPSMAX/PTMAX/PTMAX*( 2.*PTMAX 
2 . *EPSMAX/PTMAX/PTMAX*( PTMAX 


126  +  2*( .3537 


.GT. 


110 
120 
130 


140 


150 


EPSMAX/(1. -PTMAX  )**2*(1.  +  Z  - 
=  2  .  *EPSMAX/(  1 .  -PTMAX  )**2»((  PTMAX 
=  ATANIDCAMDX) 


Z)»Z 
2) 

2.*PTMAX)*(1. 
-  Z) 


Z) 


.GT, 


PTMAX) 
Z/PTMAX 
EPSMAX*W*( 


GO  TO  150 


H 


EPSMAX^3.*W*(1. 


PTMAX ) 


IF  (Z 

CAMBER 

DCAMDX   = 

GO  TO  120 

CAMBER 

DCAMDX 

BETA 

RETURN 

CAMBER 

BETA 

RETURN 

IF  (Z 

W 

CAMBER 

DCAMDX 

GO  TO  120 

CAMBER 

DCAMUX 

GO  TO  120 

END 

SUBROUTINE  COFISH(  SINALF ,COSALF ,X,Y ,N,NLOWER ,NUPPER  ) 

SET  COEFFICIENTS  OF  LINEAR  SYSTEM 

REAL  X(N),Y(N) 

COMMON  /B(5d/  NODTOT,COSTHE(100),SINTHE(100),NFLAG 

COMMON  /COF/  A( 101,111  ),KUTTA 

COIIMON  /NUM/  PI,PI2INV 


)*W  +  3.  - 
W)/PTMAX 


EPSMAX*(1. 
-  EPSMAX 


-  Z) 


KUTTA 


DO  90 


JI  1/   r  J.  ,  r 

NODTOT 


+  1 


INITIALIZE  COEFFICIENTS 


90   A( KUTTA, J) 


1, KUTTA 
=  0.0 


SET  VN  =  0  AT  MID-POINT  OF  I-TH  PANEL 


DO  120 

XMID 

YMID     =  .5^(Y(I) 

Ad, KUTTA)  =  0.0 


I  =  1, NODTOT 
=  .5*(X(I )  + 


X(I  +  1)  ) 
Y(I  +  1)  J 


FIND  CONTRIBUTION  OF  J-TH  PANEL 


.EQ 


100 


DO  110 

FLOG 

FT  AN 

IF  (J 

DXJ 

DXJP 

DYJ 

DYJP 

FLOG 

FT  AN 

CTIMTJ 

STIMTJ 

A(I,J)   = 

A(  I, KUTTA) 
IF  id  .GT 


=  1, NODTOT 
0.0 


PI 

I  ) 
XMID 
XfllD 
YMID 
YMID 


GO  TO 
X(  J) 
X(  J  +  1) 
Y(  J) 
Y( J+1) 


100 


.S*ALOG(  (  DXJP*DXJP+DYJP*DYJP  )/( DXJ*DXJ+DYJ*DYJ  ) ) 
ATAN2( DYJP»DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ  ) 


COSTHEd  )*COSTHE(  J) 
SINTHEd  )*COSTHE(  J) 
PI2INV*( FTAN^CTIMTJ 
PI2INV*( FLOG^CTIMTJ 
=  Ad, KUTTA)  +  B 
1)  .AND.  d  .LT.  NODTOT ))G0  TO  110 


SINTHEd  )*SINTHE(  J) 
COSTHEd  )*SINTHE(  J) 
FLOG*STIMTJ) 
FTAN^STIMTJ ) 


IF  I-TH  PANEL  TOUCHES  TRAILING  EDGE, 
ADD  CONTRIBUTION  TO  KUTTA  CONDITION 


110 


120 


A(KUTTA,J)  =  A(KUTTA,J)  -  B 

A(  KUTTA, KUTTA)  =  A(  KUTTA, KUTTA  )  +  Ad,  J) 

CONTINUE 

FILL  IN  KNOWN  SIDES 

Ad,KUTTA-H)  =  SINTHEd  )*COSALF  -  COSTHE(  I)*SINALF 

CONTINUE 

Al  KUTTA, KUTTA+1)  =  -  (COSTHEd  )  ♦  COSTHE(  NODTOT  )  )»COSALF 
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+  -  (SINTHE(l)  +  SINTHE(NODTOT))*SINALF 

RETURN 
END 

SUBROUTINE  GAUSS(NRHS) 

SOLUTION  OF  LINEAR  ALGEBRAIC  SYSTEM  BY 
GAUSS  ELIMINATION  WITH  PARTIAL  PIVOTING 

°A         =  COEFFICIENT  MATRIX 

NEQNS     =  NUIBER  OF  EQUATION'S 

NRHS       =  NUMBER  OF  RIGHT  HAND  SIDES 


COMMON 

NP 

NTOT 


RIGHT-HAND  SIDES  AND  SOLUTIONS  STORED 
COLUMNS  NEQNS+I  THRU  NEQNS+NRHS  OF  °A 

/COF/  AdOl. Ill), NEQNS 
=  NEQNS  +  1 
=  NEQNS  +  NRHS 

GAUSS  REDUCTION 


IN 


DO  150   I  =  2, NEQNS 


IM 
IMAX 
AMAX 
DO  110 
IF  (AMAX 
IMAX 
AMAX 
110   CONTINUE 


--   SEARCH  FOR  LARGEST  ENTRY  IN 
ON  OR  BELOW  MAIN  DIAGONAL 

=    1-1 
=    IM 

=   ABS(A(IM.IM)) 
J    =    I,NEQfl$ 
.GE.    ABS( A( J,IM)))    GO   TO   110 

J 

ABStAlJ,IM)  ) 


(I-l)TH   COLUMN 


SWITCH  (I-l)TH  AND  IMAXTH  EQUATIONS 


130 


IF  (IMAX  .NE.  IM) 
DO  130   J  =  IM,NTOT 
TEMP     =  A(IM,J) 
AdN.J)  =  A(IMAX,J) 
A(IMAX,J)  =  TEMP 
CONTINUE 


GO  TO  1^0 


ELIMINATE  (I-l)TH  UNKNOWN  FROM 
ITH  THRU  ( NEQNS )TH  EQUATIONS 


1^0 


DO 

R 

DO 


150   J 


150   A(J,K 


=  I, NEQNS 
A(  J,IM  I/A(IM,IM) 
150   K  =  I, NTOT 

=  A( J,K )  -  R*A(IM,K) 

BACK  SUBSTITUTION 


DO  220   K  =  NP,NTOT 

A(NEQNS,K)  =  A( NEONS, K)/A( NEQNS, NEQNS) 

DO  210   L  =  2, NEQNS 

I        =  NEQNS  +  1  -  L 

IP      =1  +  1 

DO  200   J  =  IP, NEQNS 
200   A(I,K)   =  A(I,K)  -  A(I.J)*A(  J,K) 
210   A(I,K  )   =  A(I,K)/A(I,I) 
220   CONTINUE 

RETURN 

END 

SUBROUTINE  VELDIS( SINALF .COSALF ,X ,Y ,N ,NLOWER ,NUPPER , ALPHA  ) 
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COMPUTE  AND  PRINT  OUT  PRESSURE  DISTRIBUTION 

REAL  X(N),Y(N) 

COMMON  /BOD/  NODTOT ,COSTHE( 100  )  ,SINTHE( 100 ) ,NFLAG 

COtlilON    /COF/    At  101,111  ),KUTTA 

COMHON   /CPD/    CPl 100  I 

conriorj  /num/  pi,pi2INv 

COMMON  /SKAL/  N2ER0,YMULT 
DIMENSION     Q( ISO  ) 
YMULT    =20.0 
PRINT  1000.  ALPHA 
WRITE  (12,1000)  ALPHA 
PRINT  1005 
WRITE  (12,1005) 

RETRIEVE  SOLUTION  FROM  A-MATRIX 

DO  50   I  =  1, NODTOT 
Q(I  )     =  A(I,KUTTA  +  1) 
GAMMA    =  A(KUTTA,KUTTA+1) 

FIND  VTAND  CP  AT  MID-POINT  OF  I-TH  PANEL 

DO  130  I  =  1, NODTOT 

XMID  =  .5*(X(I  )  +  X(I  +  1)  ) 

YMID  =  .5*(Y(I  )  ♦  Y(I  +  1)) 

VTANG  =  COSALF*COSTHE(I  )  +  SINALF*SINTHE( I) 

ADD  CONTRIBUTION  OF  J-TH  PANEL 
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DO  120   J  =  1,N0DT0T 

FLOG     =0.0 

FTAN     =  PI 

IF  (J  .EQ.  I  )  GO  TO  100 

DXJ      =  XMID  -  XIJ) 

DXJP     =  XNID  -  XlJ+1) 

DYJ      =  YMID  -  Y(  J) 

DYJP     =  YMID  -  Y(J  +  H 

FLOG     =  . 5*«AL0G( ( DXJP*DXJP+DYJP*DYJP )/( DXJ*DXJ+DYJ*DYJ ) ) 

FTAN     =  ATAN2(DYJP^DXJ-DXJP*DYJ,DXJP*DXJ+DYJP*DYJ) 
100   CTIMTJ   =  COSTHE(  I  I^COSTHEI  J  I  +  SINTHEd  )*SINTHE(  J  ) 

STIMTJ   =  SINTHEd  l«COSTHE(  J  I  -  COSTHE  (  I  t^SINTHE(  J  ) 

AA       =  PIZINV^CFTAN^'CTIMTJ  +  FLOG«STIMTJ) 

B       =  PI2INV*(FL0G*CTIMTJ  -  FTAN^^STIMTJ ) 

VTANG    =  VTANG  -  B^Q( J  )  +GAMMA*AA 
120   CONTINUE 

CPU)    =  1.  -  VTAN'G*VTANG 
C     CALL  PLOTXY(XMID,CP(I ) ) 

PRINT  1010,  XMID,CP(I  ) 

HRITE  (12,1010)  XMID,CP(I) 
130   CONTINUE 

1000  FORMAT! /////, '  ANGLE  OF  ATTACK  IN  DEGREES  =  ',F8.3,/) 
1005  FORMAT!//.'  PRESSURE  DISTRIBUTION ' ,//,<+X, "X ' ,8X, "CP ',/ ) 
1010  FORMAT!  Fl6.^,F10.<f) 

RETURN 

END 

SUBROUTINE  FANDMC  SINALF ,COSALF ,X , Y ,N ,NLOWER ,NUPPER  ) 

C 

C  COMPUTE  AND  PRINT  OUT  CD,CL,CM 

REAL  X(N),Y(N) 

COMMON  /BOD/  NODTOT ,COSTHE( 100 ) ,SINTHE( 100 ) ,NFLAG 

COMMON  /CPD/  CP( 100) 

CFX      =  0.0 

CFY      =0.0 

CM      =0.0 

CMC4     =0.0 

DO  100   I  =  1, NODTOT 

XMID     =  .5*(X(I  )  +  Xd+D) 

YMID     =  .S*(Y( I  )  +  Y(I  +  1)  ) 

DX      =  X(I  +  1 J  -  X(I  ) 

DY      =  Y(I  +  1)  -  Yd  ) 

CFX     =  CFX  +  CPd  )*DY 

CFY      =  CFY  -  CPd  )^0X 

CM      =  CM  +  CPd  )*(DX*XMID  +  DY^YMID) 

CMC4     =  CMC'+  +  CPd  )*(DX*(XMID-0.25)  +  DY^YMID) 
100   CONTINUE 

CD       =  CFX*COSALF  +  CFY^SINALF 

CL       =  CFYi^COSALF  -  CFX^SINALF 

PRINT  1000,  CD,CL,CM,CMC^ 

WRITE  (12,1000)  CD,CL,CM,CMC4 
1000  FORMAT!/////,'     (iD  =',F8.5,'     CL  =',F8.5,'     CM  =',F8.5, 
+'     CMCt  =' ,F8.5) 

RETURN 

END 
C**«*)f*^*«**»f***^^**»^**^**t**********^(»e*jf*********jf*****»*******»t****»)( 

SUBROUTINE  CLRSCRN 

C*******^***^*;**^**e^>c^***i«**)t******9(^«*****************ie************** 

C 

C   LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
C 

1ST AT  =  LIB$ERASE  PAGE  (1,1) 

RETURN 

END 

C*********^**5r^*******************^***9«********)f**********X**********i( 

SUBROUTINE  QUERY(NANS) 

C***^*****^****^Jf***>fi«»tx^**)t***-}f******>?****-***j^**sf********^**3(********* 

c 

C   ROUTINE  TO  TRAP  ERRORS  CAUSED  BY  IMPROPER  RESPONSES  TO  QUESTIONS. 
C   THE  COMPUTER  GENERATES  AND  ERROR  WHEfJ  A  CHARACTER  IS  SUPPLIED  TO 
C   A  QUESTION  EXPECTING  AN  INTEGER  OR  REAL  VALUE. 

NQTEST=0 
1  CONTINUE 

IF  (NQTEST  .GT.  01  THEN 

PRINT  *,  '   CHARACTER  VALUES  ARE  NOT  VALID." 

PRINT  *,  '   PLEASE  ENTER  A  VALUE  OF  1  OR  2.' 
END  IF 

NQTEST  =  NQTEST  +  1 
READ  (5,*,ERR=1)NANS 
RETURN 
END 

C     DATA  VALUES  FOR  VARIOUS  AIRFOILS.  TO  USE,  REMOVE  COMMENTS 
C     AND  PLACE  AFTER  COMMON  CARDS  IN  MAIN  PROGRAM. 

C  ***   FOLLOWING  DATA  IS  FOR  THE  NACA  0006  AIRFOIL  *** 

C     DATA  NUPPER,  NLOWER  /1<+,1'+/ 

C     DATA  (Xd  ), 1  =  1,28  3/1.0, .90, .80, .70, .60, .50, .40, .30, .20, .10, 

C     1  0.075,0.05,0.025,0.0125,0.0,0.0125,0.025,0.05,0.075, 

C     2  0.10, .20, .30, .40, .50,. 60, .70, .80, .90/ 

C  ***  NOTE:  VALUE  FOR  TRAILING  EDGE  IS  SET  TO  0.000  VS  ACT  THICKNESS  « 

C     DATA  (Yd  ), 1=1, 20)/-. 00063, -.00724, -.01312, -.01832, -.02282, 

C     1       -.02647, -.02902, -.03001, -.02869, -.02341, 0.0, .02341, .02869, 

C     2         .03001, .02902, .02647, .02282, .01832, .01312, .00724/ 

C 

C  ***********if*«^******->f*******************#********jf ****************** 

C  ***  FOLLOWING  DATA  IS  FOR  THE  NACA  0012  AIRFOIL  *** 

C     DATA  NUPPER,  NLOWER  /14,14/ 
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C  DATA  (XII  ), 1  =  1, 28  1/1.0, .90, .80, .70, .60,. 50,. ao,. 50, .20, .10, 

C  1  0.075,0.05,0.625,0.01^5,0.0,0.0125,0.025,6.05,0.075, 

C  2  0.10, . 20, . 30,-^0, .50, .66, .70,. 80, .'^O/ 

C  ***  NOTE:  VALUE  f6r  TRAILING  EDGE  IS  SET  TO  0.000  VS  ACT  THICKNESS  * 

C  DATA  (Yd  1.1  =  1,28  I/O. 00000, -.01'+'48,-. 02623, -.0366^,-. 0<+563, 

C  1        -. 0S29<+,-. 05803, -.Oo002,-. 05737. -.04683, -.04200, -.02555, 

C  1        -. C2ol5,-. 0189'+, 0.0,.018°4,. 02615, .03555, .04200, .04683, 

C  2         . 05737, .06002, .05803,. 05294, .045o3,. 03664, .02623, .01448/ 

C 

C  ***  FOLLOWING  DATA  IS  FOR  THE  NASA  LS(1)-001S  AIRFOIL  »*» 

C  DATA  NUPPER,  NLOWER  /14,14/ 

C  DATA  (XII  ), 1  =  1, 28  1/1.0, .90, .80, .70, .60. .50, .40, .30, .20, .10, 

C  1  0.07535,0.05,0.02  '7,0.01255,0.0,0.01361,0.02565,0.04993,0.07498, 

C  2  0.10, .26, .30, .40,  56, .60, .76, .86, .90/ 

C  ***  NOTE:  VALUE  FOR  TRAILING  EDGE  IS  SET  TO  0.000  VS  ACT  THICKNESS  » 

C  DATA  (Yd  ), 1  =  1, 28  1/0. 00000, -.01165, -.02654, -.04196, -.05459, 

C  1       -.0o209,-. 06453, -.06316, -.05755, -.04543, -.04070, -.03462, 

C  1       -.02612, -.01938, 0.0, .01892, .02563, .03465, .04075, .04541, 

C  2         . 05750, .06307,. 06432, .O6263,. 05446, .04163, .02638, .01172/ 

*  USER  INSTRUCTIONS  FOR  MANUAL  DATA  ENTRY:  * 
w  n 
9*  (1)  UPON  CUE  ENTER  THE  TOTAL  NUMBER  OF  AIRFOIL  DATA  « 
»  POINTS.   DO  NOT  COUNT  THE  LEADING  OR  TRAILING  EDGE  TWICE.        * 

*  NOTE:  ARRAYS  ARE  DIMENSIONED  TO  100,  THIS  IS,  THEREBY  THE  * 

*  LIMITING  NUMBER  OF  DATA  POINTS  THAT  CAN  BE  ENTERED  * 

*  WITHOUT  HAVING  TO  REDIMENSION  THE  PROGRAMS  ARRAYS.  * 

it  ^ 

*  (21  ENTER  X  COORDINATES  AS  MANY  TO  A  LINE  AS  DESIRED.  * 
»  THE  PROGRAM  WILL  ALLOW  FOR  CORRECTION  IF  ANY  ERRORS  ARE  * 
«  MADE.  A  TABLE  OF  X  COORDINATES  IS  DISPLAYED  FOR  THE  USER  * 
K  TO  CHECK  HIS  INPUT.                                            * 

^  ^ 

*  (3)  ENTER  Y  COORDINATES  AS  MANY  TO  A  LINE  AS  DESIRED.  * 

*  THE  PROGRAM  WILL  ALLOW  FOR  CORRECTION  IF  ANY  ERRORS  ARE  * 

*  MADE.  A  TABLE  OF  Y  COORDINATES  IS  DISPLAYED  FOR  THE  USER  * 

*  TO  CHECK  HIS  INPUT.  * 
%  ^ 
»  (4)  PROGRAM  ALLOWS  FOR  AS  MANY  RUNS  AS  THE  USER  DESIRES     * 

*  SIMPLY  FOLLOW  CUING  SEQUENCE.  * 
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Introduction 

The  purpose  of  the  VORLAT  program  is  to  provide  an  application  of  the  vortex  lattice 
method  for  the  determination  of  the  lift  distribution  of  a  flat  rectangular  plate.  This 
method  is  based  on  a  distribution  of  discrete  horseshoe  vortices  over  a  wing  surface  that 
has  been  divided  into  a  finite  number  of  panels.  A  system  of  linear  equations  is  devel- 
oped for  the  vortex  strengths  on  the  panels  and  solved  by  matrix  methods. 

Assumptions  and  Limitations 

This  program  is  limited  to  flat  rectangular  wings.  The  program  divides  the  wing  up  into 
panels  using  either  a  uniform  grid  or  cosine  spacing  method.  The  cosine  spacing  algo- 
rithm provides  a  finer  grid  near  the  wing  tips  where  the  pressure  distribution  over  the 
wing  is  rapidly  changing.  Both  methods  incorporate  an  enhancement  whereby  the  pan- 
els do  not  extend  to  the  wing  tips,  but  only  to  a  distance  of  d  4  from  the  tips.  The  value 
of  t^  is  the  spanwise  width  of  a  wing  panel. 

The  solution  is  determined  for  conditions  of  incompressible  and  inviscid  irrotational 
flow.  Since  we  are  considering  an  inviscid  fluid,  the  coefficient  of  drag  pro\ided  in  the 
results  is  for  the  induce  '  drag  component  only.  This  program  is  intended  to  be  used  for 
the  analysis  of  flat  rectangular  wings  with  low  aspect  ratio.  High  aspect  ratio  wings  are 
better  analyzed  using  a  method  based  on  the  lifting  line  theory. 

Input  Description 

There  are  verv"  few  input  values  required  for  this  simple  program.  Their  description  and 
program  variable  names  are  listed  below. 

AR  -  Aspect  ratio  of  the  wing.  (Span)-  Area 

NX,  NY  -  Number  of  vortices  in  the  X  and  Y  directions. 

ALPHA  -  Angle  of  attack.  (Angle  between  the  chord  and  the  freestream  velocity.) 

lOPT  -  Grid  spacing  option.    Uniform  grid  or  cosine  spacing. 

Input  Restrictions 

The  program,  as  written,  is  limited  to  350  total  surface  vortices.  This  may  be  modified 
by  changing  the  size  of  the  arrays,  however  for  the  wings  that  this  program  was  intended 
to  analyze,  this  should  be  sufficient.    The  program  will  accept  values  for  ALPHA  up  to 
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45  degrees,  but,  as  noted  previously  with  program  PANEL,  the  user  is  cautioned  that 
values  above  15  may  be  suspect. 

Sample  Problem 

A  sample  problem  uill  be  used  to  illustrate  the  use  of  the  VORLAT  program.  The  run 
will  be  done  using  a  flat  rectangular  wing  with  an  aspect  ratio  of  2.  The  lattice  will  be 
created  by  placing  three  vortices  on  the  wing  in  the  X  direction  and  5  vortices  on  the 
wing  in  the  Y  direction.  The  vortices  will  be  distributed  using  the  Uniform  Grid  spacing 
option  and  the  wing  will  be  set  at  an  angle  of  attack  (alpha)  of  6  degrees. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 
Next,  ensure  that  the  program  is  in  your  director}"  by  typing 

DIR  [Return] 
and  viewing  the  files  for  VORLAT.EXE  and  VORLAT.OBJ.  If  only  the  VORLAT.FOR 
file  exists,  you  must  compile  the  program  by  typing. 

FOR  \  ORLAT  [Return] 
The  next  step  is  to  link  the  program  by  entering. 

LINK  VORLAT  [Return] 
The  files  VORL.A.T.EXE  and  VORLAT.OBJ  will  now  exist  and  you  will  be  able  to  run 
the  program. 

Running  the  Program 

To  run  the  program,  tyne 
VORLAT  [Return] 

The  program  will  start  and  the  screen  should  look  similar  to  what  is  shown  in 
Figure  24 
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PROGRAM  VORLAT 

:  VERSION  4  : 

10  SEPTEMBER  88 

VORTEX -LATTICE 

METHOD  USED  TC 

)  DETERMINE 

SPANWISE 

LIFT  DISTRIBUTION  FOR  A  FLAT 

RECTANGULAR 

WING 

ENTER  THE  ASPECT  RATIO? 

Figure  24.       Initial  Screen  for  Program  \  ORLAT 


Respond  to  the  request  for  the  aspect  ratio  by  entering 

2  [Return] 
Respond  to  the  request  for  the  number  of  vortices  by  entering 

3,5  [Return] 
Now  enter  the  angle  of  attack  in  degrees  as 

6  [Return] 
Finally  enter  the  grid  spacing  option. 

1  [Return] 
The  screen  is  then  cleared  and  you  will  be  presented  with  what  is  shown  in  Figure  25 


THE   CURRENT  VALUES   ARE: 

1)  ASPECT  RATIO   =        2.000000 

2)  NUMBER  OF  VORTICES   (NX,NY)   =  3  5 

3)  ANGLE   OF  ATTACK   (DEGREES)      =        6.000000 

4)  GRID   SPACING:     (1)    UNIFORM,    (2)    COSINE   =  1 

THE   CALCULATED   PARAMETERS   ARE: 

DELTA  X  =      0. 3333333 
DELTA   Y   =      0.  1904762 

NUMBER   OF   EQUATIONS   TO   SOLVE   =  15 

ARE   THESE   VALUES   CORRECT?    (YES=1,    N0=2) 


Figure  25.       Data  Revie>> /Correction  Screen 

If  your  display  agrees  with  this,  respond  to  the  question  by  entering 
1  [Return] 
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If  you  should  desire  to  change  any  values,  enter  2,  and  you  will  be  asked  which  value 
you  want  to  correct  and  the  new  desired  value.  Following  entr>'  of  the  correct  values 
and  a  positive  response,  the  program  begins  the  solution  process.  It  returns  with  the 
coefficients  of  lift  and  drag  at  the  indicated  spanwise  positions,  as  well  as  the  chordwise 
center  of  pressure  for  those  positions.  Overall  values  for  the  coefficients  of  lift,  drag, 
induced  drag  and  moment  about  the  leading  edge  are  calculated  and  then  printed  out 
near  the  bottom  of  the  screen.  Don't  worr}"  if  you  miss  some  of  the  values  as  they  scroll 
up  on  the  screen.  All  the  values  are  printed  to  both  the  screen  and  to  the  data  file. 
The  program  now  asks  if  you  want  to  make  another  run.  Enter 

1  [Return] 

Vou  should  now  be  back  at  the  data  review/correction  screen  and  it  should  look  like 
Figure  25.  Now  run  the  same  wing,  but  use  the  cosine  grid  spacing.    Enter 

2  [Return] 

You  want  to  change  the  grid  spacing,  so  enter 

4  [Return] 
The  screen  is  automatically  updated  and  you  will  see  that  the  grid  spacing  has  been 
changed  for  you  also.  Since  there  are  only  two  grid  spacings  available,  the  program 
"knows"  to  chose  the  other  and  this  saves  you  the  extra  step  of  having  to  enter  it.  Not 
exactly  artificial  intelhgcnce,  but  it  helps.  You  are  again  asked  if  the  data  is  correct. 
As  in  the  previous  example,  responding  with  a  (1)  causes  the  program  to  proceed  to  the 
output  stage.  The  solution  will  be  printed  to  the  screen  and  appended  to  the  data  file 
which  contains  the  data  from  the  prior  run. 
The  program  now  asks  if  you  want  to  make  another  run.  The  session  is  finished,  so  enter 

2  [Return] 
This  completes  the  sample  problem  for  the  VORLAT  program.    The  data  file  created 
by  this  sample  run  and  the  listing  for  the  VORLAT  program  are  on  the  following  pages. 
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SAMPLE  PROBLEM  OUTPUT  DATA  FILES 


'■"'^  UNIFORM  GRID  SPACING  *-^< 


NX=  3  NY=  5    ASPECT  RATIO  =   2.  00   ANGLE  OF  ATTACK  =   6.  00 


CL(Y) 


CD(Y) 


XCP(Y) 


0. 

095 

0. 

32140 

0. 

01232 

0. 

22266 

0. 

286 

0. 

31085 

0. 

01213 

0. 

22061 

0. 

476 

0. 

28791 

0. 

01166 

0. 

21614 

0. 

667 

0. 

24778 

0. 

01068 

0. 

20843 

0. 

857 

0. 

17711 

0. 

00839 

0. 

19624 

CL  = 

0. 

25620 

CD  = 

0. 

0105093 

CD/CL2 

=  0. 

1601 

CMLE  = 

-0. 

055004 

XCP  = 

0. 

21469 

■''^''^   COSINE  GRID  SPACING  ■>''* 


NX=   3   NY=  5    ASPECT  RATIO  =   2. 00   ANGLE  OF  ATTACK  =   6.  00 


CL(Y) 


CD(Y) 


XCP(Y) 


0. 

045 

0. 

32155 

0. 

01223 

0. 

22403 

0. 

210 

0. 

31734 

0. 

01220 

0. 

22325 

0. 

476 

0. 

29243 

0. 

01176 

0. 

21844 

0. 

742 

0. 

23258 

0. 

01038 

0. 

20690 

0. 

907 

0. 

14330 

0. 

00733 

0. 

19607 

CL  = 

0. 

25927 

CD  = 

0. 

0106156 

CD/CL2 

=  0. 

1579 

CMLE  = 

-0. 

056232 

XCP  = 

0. 

21688 

NOTE:  CD/CL2 


Cr 


Q        ttAR 


Used  to  compare  results  to  those  for  elliptic  loading. 
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PROGRAM  \'ORLAT  LISTING 

PROGRAM  VORLAT 
C 

C  ***  MODIFIED  FOR  USE  ON  THE  MICROVAX/2000  BY  J. A.  CAMPBELL  (JUL  88) 
C     Fir^AL  UPDATES  MADE  1^  SEP  88  -  ( JAC  ) 

c 

C  PROGRAM  VORLAT  :  VERSION  4   ^   AUGUST  88 

C 

C  ORIGINAL  IBM  MAINFRAME  PROGRAM  HAS  ADAPTED  FROM  JACK  MORAN'S  BOOK 

C  'AN  INTRODUCTION  TO  THEORETICAL  AND  COMPUTATIONAL  AERODYNAMICS', 

C  WILEY  AND  SONS,  NEW  YORK  1984.   THE  LISTING  IS  FOUND  ON  PAGE  ISl. 

C 

C  PROGRAM  FLEXIBILITY  AND  USER  INTERFACE  WAS  REVISED  FOR 

C  PROFESSOR  J.V.  HEALEY  BY  JOHN  CAMPBELL.   JULY  1988. 

C 

C  VERSION  4  USES  A  COSINE  SPACING  ALGORITHM  IN  THE  SPANWISE 

C  DIRECTION  OVER  A  RArJQE  OF  ZERO  TO  PI  OVER  THE  HALF  SPAN 

C  AS  IMPLEMENTED  IN  VERSION  3.   AN  ATTEMPT  WAS  MADE  TO  CHANGE 

C  THE  RANGE  FROM  ZERO  TO  PI/2,  HOWEVER  TIME  CONSTRAINTS  PREVENTED 

C  ITS  SUCCESSFUL  INCORPORATION.   THERE  APPEARED  TO  BE  A  PROBLEM 

C  WITH  THE  INDICES  OF  THE  MATRICES.   THE  LINES  ADDED  IN  VERSION  4 

C  BUT  NOT  INCORPORATED  ARE  NOTED  BY  CCC  IN  THE  FIRST  COLUMNS. 

C 

C  SIGNIFICANT  UPGRADES  HAVE  BEEN  IMPLEMENTED  IN  VERSION  4  WITH 

C  RESPECT  TO  EASE  OF  OPERATION  AND  ERROR  CORRECTION. 

C 

C  STATEMENT  LABELS  60,  70,  AND  80,  AS  WELL  AS  REFERENCES  TO  THEM, 

C  IN  THE  PREVIOUS  VERSION  HAVE  BEEN  CHANGED  TO  160,  170  AND  180. 

C 

C 

C       PROGRAM  VORLAT  :  VERSION  3   14  MAY  86 

C 

C       VORTEX-LATTICE  METHOD  FOR  FLAT  RECTANGULAR  WING 

C 

C  ***»  VERSION  3  OF  THIS  PROGRAM  INCORPORATES  AN  OPTION  **** 

C  *Jf**  OF  HAVING  THE  COMPUTATION  DOtJE  USING  EITHER  A  ***f* 

C  **»*  COSINE  GRID  SPACING  OR  UNIFORM  GRID  SPACING  IN  **** 

C  ****  BOTH  THE  X-( CHORDWISE  )  AND  Y-( SPANWISE)  DIRECTIONS  **** 

C        **?**  *¥■** 

C 

INTEGER   NANS 
DIHEhJSION   GAM(  350  ) 
COIiriO.N   0X,DY,AR,PI,IOPT,NX,NY 
COMMON  /COF/  A( 350,351  ),NEQNS 
PI    =  3.141592d535 
NPASS  =  I 
C 
C 

C  FOLLOWING  LINES  FOR  OUTPUT  FILES  ADDED  BY  J. A.  CAMPBELL  ( JUL88 ) 
C   OPEN  FILE  FOR  COEFFICIENT  OUTPUT 
OPEN  (UNIT=ll, 
2      FILE=  'V0RLAT4.DAT', 
2      0RGANIZATI0N=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2      REC0RDTYPE=  'VARIABLE', 
2      FORM=  'FORMATTED', 
2      STATUS=  'UNKNOWN') 
C 

C  INPUT  ASPECT  RATIO  ( AR  ) ,  NUMBERS  OF  VORTICES 

C  IN  X-  AND  Y-  DIRECTICr;S  (NX, NY  I  AND 

C  ANGLE  OF  ATTACK  IN  DEGRESS  (ALPHA) 

C 

C   CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THE  PRINT  HEADER 
CALL  CLRSCRN 
PRINT  * 
PRINT  *,  '  PROGRAM  VORLAT  :  VERSION  4  :  10  SEPTEMBER  88  ' 

PRirjT  * 

PRINT  *,  •  VORTEX-LATTICE  METHOD  USED  TO  DETERMINE  SPANWISE' 
PRINT  *,  '  LIFT  DISTRIBUTION  FOR  A  FLAT  RECTANGULAR  WING' 
PRINT  * 
PRINT  * 
C 

10  PRINT  *,  ■  ENTER  THE  ASPECT  RATIO?' 
READ  *,   AR 
IF  (NPASS  .GT.  DGO  TO  70 
30  PRINT  *.  '  INPUT  THE  NUMBER  OF  VORTICES,  IN  THE  X  AND  Y  DIRECTIONS 

♦  (NX,NY)' 
32  READ  *,  NX, NY 

IF  ((NX*NY)  .GT.  350)  THEN 

PRINT  *,  '  NX  *  NY  MUST  BE  LESS  THAN  OR  EQUAL  TO  350.' 
PRINT  *.  '  PLEASE  REENTER.' 
GO  TO  ZZ 
END  IF 

IF  (NPASS  .GT.  DGO  TO  70 
50  PRINT  *,  '  WHAT  IS  THE  ANGLE  OF  ATTACK  IN  DEGREES?' 
52  READ  *,  ALPHA 

IF  (ALPHA  .EQ.  0. )  THEN 

PRINT  *,'  ALPHA  MUST  BE  GREATER  THAN  ZERO.  PLEASE  REENTER.' 
GO  TO  52 
ELSE  IF  (ALPHA  .GT.  45.)  THEN 

PRINT  *,'  ALPHA  MUST  BE  LESS  THAN  45.  PLEASE  REENTER.' 
GO  TO  5Z 
END  IF 
IF  (NPASS  .GT.  DGO  TO  72 
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60  PRINT  *,'  ENTER  GRID  SPACING  OPTION  (1  OR  2):  (1)  UNIFORM*, 
+         ■  ;  ( 2)  COSINE" 
READ  *,  lOPT 
NPASS  =  NPASS  +  1 
C 

***5(   MAKE  CALCULATIONS  AND  ECHO  CHECK  THE  INPUT 
C 

70  DX  =  l./FLOAT(NX) 

DY  =  AR/( 2.*NY  +  .5) 
NEQrJS  =  NX*NY 

C   CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN 

72  CALL  CLRSCRN 
C 

PRINT  *,'  THE  CURRENT  VALUES  ARE:  ' 

PRirjT  * 

PRINT  *,'    1)  ASPECT  RATIO =',AR 

PRINT  »,'    2)  NUMBER  OF  VORTICES  ( NX.NY  )  =',NX,NY 

PRINT  *,'    3)  ANG' E  OF  ATTACK  (DEGREES)   =", ALPHA 

PRINT  J*,*    ^)  GRI.  SPACING:  (1)  UNIFORM,  (2)  COSINE  =',IOPT 

PRINT  * 

PRINT  *,'  THE  CALCULATED  PARAMETERS  ARE:  ' 

PRINT  * 

IF  (lOPT  .EQ.  11  THEN 

PRINT  *, '    DELTA  X  =' ,DX 

PRINT  *,'    DELTA  Y  =' ,DY 
ELSE 

PRINT  »,'    SINCE  COSINE  SPACING  WAS  CHOSEN," 

PRINT  *,"    DELTA  X  AND  DELTA  Y  ARE  VARIABLE.' 
END  IF 
PRINT  * 

PRINT  *,'    NUMBER  OF  EQUATIONS  TO  SOLVE  =",NEQNS 
PRINT  * 

PRINT  ^,  '  ARE  THESE  VALUES  CORRECT?  (YES=1,  N0=2)' 
75  CALL  QUERY  (NANS) 
IFLAG  =  NANS 
IF  (IFLAG  .LT.  1  .OR.  IFLAG  .GT.  2)   THEN 

PRINT  *,  "  INVALID  ENTRY.  ENTER  1  OR  2 . ' 
GO  TO  7S 
END  IF 
IF  (IFLAG  .EQ.  1)  GO  TO  90 

PRINT  *,  "  WHICH  VALUE  DO  YOU  WISH  TO  CORRECT?  ' 
PRINT  * 
80  PRINT  *,  •  ENTER  1,  2,  3  OR  <+ " 
CALL  QUERY  (NANS) 
IFLAG  =  NANS 
IF  (IFLAG  .GT.  ^)   THEN 

PRINT  *,  "  INVALID  ENTRY.  ENTER  1,  2,  3  OR  4." 
GO  TO  86 
END  IF 
C  ****  SEND  CONTROL  BACK  TO  OBTAIN  CORRECT  DATA  **** 

GO  TO  ( 10,30,50  I  IFLAG 
C  ****  CHAfJGE  GRID  TYPE  **** 
IF  ( lOPT  .EQ.  1)  THEN 

lOPT  =  2 
ELSE 

lOPT  =  1 
END  IF 
GO  TO  72 
C 

90  COSALF  =  COS(ALPHA?^PI/180.  ) 
SINALF  =  SIN(ALPHA*PI/180.  ) 
C 
C     INFORM  OPERATOR  THAT  PROCESSING  HAS  STARTED 

WRITE  (6,1003) 
C 

C   SET  COEFFICIENTS  OF  EQUATIONS  FOR  VORTEX  STRENGTHS 
C 

DO  100  I  =  1,NY 
DO  100  J  =  1,NX 

IJ  =  (  I  -  1  )^NX  ♦  J 
A(IJ, NEONS  +  1  )  =  SINALF 
DO  100  K  =  1,NY 
DO  100  L  =  1,NX 
KL  =  (K-l)*rJX  +  L 
CALL  DNWASH  ( I , J ,K ,L ,A( KL  ,IJ  )  ,1 ) 
100  CONTINUE 
C 

C    SOLVE  FOR  VORTEX  STRENGTHS 
C 

CALL  GAUSS  ( 1) 
DO  200  I  =  1,NY 
DO  200  J  =  1,NX 
IJ  =  (I-l  )*NX  +  J 
200  GAM(IJ)  =  A(IJ,NEQNS+1) 
C 

C    PRINT  OUT  HEADINGS  FOR  DATA 
C 

IF  (lOPT  .EQ.  1)  WRITE  (11,1000)  NX, NY ,AR, ALPHA 
IF  (lOPT  .EQ.  2)  WRITE  (11,1001)  NX, NY ,AR, ALPHA 
WRITE  (6,1005) 
WRITE  (11,1005) 
C 

C     INITIALIZE  TOTAL  FORCE  AND  MOMENT  COEFFICIENTS 
C 

CMT  =0.0 
CDT  =0.0 
CLT  =0.0 
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C    COMPUTE  FORCE  AND  MOMENT  COEFFICIENTS 
C 

DO  320  I  =  1,NY 
CX  =  0.0 
CZ  =  0.0 
CM  =  0.0 
C 

DO  310  J  =  1,NX 
IJ  =  (I-l  )*NX  +  J 
K  =  0.0 

DO  300  K  =  1,NY 
DO  300  L  =  1,NX 
KL  =  (K-1  )*NX  +  L 
CALL  DNWASH(K,L,I,J,DELW,2) 
W  =  W  +  DELW*e6AM(KL) 
SOO       CONTINUE 

CX  =  CX  +  6AM(IJ)*(W  -  SINALF)*2. 
CZ  =  CZ  ♦  GAMIIJ)*C0SALF*2. 
IF  IIOPT  .EQ.  1)  THEN 

CM  =  CM  -  GAM(IJ)*DX*(J  -  . 75  )*C0SALF*2 . 
ELSE 

CM  =  CM  -  GAM(IJ)*(FCOS( J,NX)+0.2SX(FCOS( J+1,NX) 
+         -  FCOS( J,NX) ))*C0SALF*2. 
END  IF 
310   CONTINUE 

CL  =  CZ^COSALF  -  CX^SINALF 
CD  =  CZ*SINALF  +  CX^^COSALF 
IF  (lOPT  .EQ.  1)  THEN 

CLT  =   CLT  +  CL*DY*2./AR 
CDT  =  CDT  +  CD*DY*2./AR 
CMT  =  CMT  +  CM^2.*DY/AR 
ELSE 
CCC        DELY  =  (0.5»eAR  -  0  .  25*DY  )*(  FSIN(  I  +  l  ,NY  )  -  FSIN(I,NY)) 
DELY  =  (0.5*^AR  -  0  .  25*tDY  )*(  FC0S(I  +  1  ,NY  )  -  FC0SII,NY)) 
CLT  =  CLT  +  CL*DELY*2./AR 
CDT  =  CDT  +  CD*:DELY*2./AR 
CMT  =  CMT  +  CM*DELY*2./AR 
END  IF 

XCP  =  -  CM/CL 
IF  (lOPT  .EQ.  1)  THEN 

Y  =  (I-.5)*DY 
ELSE 

CCC        Y  =  (0.5*AR  -  0.25*DY)*0.5*(FSIN(I,NY)  ♦  FSIN( I+l ,NY ) ) 

Y  =  I0.5*AR  -  0.25^DY)^(  FCOSd.NY  J  + 
+  0.5*(FC0SII+1,NY)  -  FCOS(I,NY))) 

END  IF 

KRITE(6,1010)  Y.CL.CD.XCP 

WRITE! 11,1010)  Y,CL,CD,XCP 
320  CONTINUE 

XCP  =  -CMT/CLT 

CD0CL2  =  CDT/CLT**2 

WRITE! 6,1020  I  CLT ,CDT .CD0CL2 ,CMT ,XCP 

WRITE( 11,1020 )  CLT,CDT,CD0CL2,CMT,XCP 

PRINT  * 

PRINT  *,  'THE  COEFFICIENT  OUTPUT  DATA  FOR  LIFT,  DRAG  AND" 

PRINT  *,  '  PRESSURE  HAS  BEEN  WRITTEN  TO  FILE  VORLAT'*. DAT . ' 
PRINT  * 

400   PRINT  *,  '  DO  YOU  WISH  TO: 

PRINT  *,  '       1)  MAKE  ANOTHER  RUN  OR' 

PRINT  *,  '       2)  END  THIS  SESSION' 

PRirjT  *,  '  EhJTER  1  OR  2.  ' 

PRINT  ¥ 

CALL  QUERY  (NANS) 

IF  (NANS  .EQ.  1)   GO  TO  70 

STOP 

1000  FORilATi//,'  **  UNIFORM  GRID  SPACING  **',///, 

+  '   NX=  ',12,'   NY=  ',12,'    ASPECT  RATIO  =  ',F5.2, 

8'    ANGLE  OF  ATTACK  =  ',  F5.2,//) 

1001  FORMAK//,'  *^  COSINE  GRID  SPACING  **',///, 

+  '   Na=  ',12,'   NY=  ',12,'    ASPECT  RATIO  =  ',F5.2, 

+'    ANGLE  OF  ATTACK  =  ',F5.2,//) 

1003  FORMAT (//,'  PROCESSING  BEGINS ',///) 

1005  FORriAT  (////  '    Y       CL(Y)      CD(Y)      XCP(Y)',/) 

1010  FORMAT! F6.3,3F10.5) 

1020  FORMAT!/////,'  CL  =',F12.5,/,'  CD  = ' .Fl** . 7,/, '  CD/CL2  =',F7.4, 

+  /,'  CMLE  =',F11.6,/,'  XCP  =',F11.5) 

END 

SUBROUTINE  DNWASH! I , J ,K ,L ,W,IND ) 
C 

C     COMPUTE  DOWNl'^ASH  ON  PANEL  CENTERED  AT  (  L-.5  )DX,  (  K- .5  )DY 
C     DUE  TO  VORTICES  AT  PANELS  CENTERED  AT  ( J-.5 )DX,+-( I-.5 )DY 
C 

COMMON  DX,DY,AR,PI,IOPT,NX,NY 
C 

IF  (lOPT  .EQ.  2)  GO  TO  50 

XA  =  DX*(J  -  .75) 

YA  =  DY*!I  -  1) 

YB  =  DY*I 

IF  (IND  .EQ.  1)  XP  =  DX*(L  -  . 25 ) 

IF  (IND  .EQ.  2)  XP  =  DX*(L  -  . 75 ) 

YP  =  DY*(K-.S) 

GO  TO  60 
C     THE  FOLLOWING  LINES  HANDLE  THE  COSINE  SPACING  SCHEME 
C      FAC  IS  THE  HALF  SPAN  MINUS  A  1/4  LATTICE  WIDTH  INSET. 
50    FAC  =  0.5*AR  -  0.2S*DY 

XA  =  FCOS(J,NX)  +  0.25*(  FCOS(  J+1,NX)  -  FCOS(J,NX)) 
CCC   YA  =  FAC  *  FSIN(I-1,NY) 
CCC   YB  =  FAC  *  FSINII,NY) 

YA  =  FAC  *  FCOS(I,NY) 
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YB  =  FAC  «  FC03(I+1,NY) 

IF  (IND  .EQ.  1  I  XP  =  FCOS(L,NX)  +  . 75»( FCOS( L  +  1 ,NX )  -  FCOS(L,NX)) 

IF  (IND  .EQ.  21  XP  =  FCOSILjNXl  +  . 2E*( FCOS( L  +  1,NX )  -  FCOS(L,NX)) 
CCC    YP  =  FAC*0.5*^I  FSINIK,NY  )  +  FSINI  K-1  ,NY  )  I 

YP  =  FAC*1 FCOS(K,NY  I  +  0 . 5*( FCOSl K  +  I ,NY  )  -  FCOS(K,NY))) 
C 
60    H  =  WHVIXP,YP,XA,YA)  -  WHV( XP .YP ,XA ,  YB 1 

+     -  KHV(XP,YP,XA,-YA)  +  WHV( XP ,YP ,XA ,-YB ) 

H  =  W^.25/S.1'+1S92656S 

RETURN 

END 

**3(***»^*****^*J^  if  *#**if**^Jf^**»f********i(  it  if  ******************************* 

FUNCTION  WHV1X1,Y1,X2,Y2) 
IF  (XI  .EQ.  X2)   GO  TO  100 

WHV  =  (1.  +  SQRT(  (  Xl-X2)if*2  +  (  Y1-Y2  )**2  )/(  XI  -  X2  )  ) 
+        /( Yl  -  Y2 ) 
RETURN 
100     WHV  =  l./(Yl  -  Y2) 
RETURN 
END 

»******if**ifi(****if****#**if  if  *if*if**if*if***if*»*i(-********if  **»»»*******»**»**« 

C     THIS  RETURNS  THE  NONDIMENSIONAL  X  COORD  OF  EACH  SECTION  BOUNDARY 
C 

FUNCTION  FCOS(I,N) 
PI  =  5.1'il5°26585 
FRACT  =  FL0AT(I-1)/FL0AT(N) 
FCOS  =  O.S  i*  (1.  -  COS(PI*FRACT)) 
RETURN 
END 

if  if  if  if  if  if  i^  if  *if  if  it  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if*if  if  if  if  iHf  if  ifif  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  if  iHfif  if  *if  if 

C     THIS  RETURNS  THE  NONDIMEMSIOfJAL  Y  COORD  OF  EACH  SECTION  BOUNDARY 
C      THIS  WAS  INTENDED  TO  IMPLEMENT  THE  SIN-LAW  LATTICE  SPACING  SCHEME 
C     REFERRED  TO  BY  GARY  HOUGH,  JOU.  OF  ACFT.,  MAY  1975,  VOL.10,  NO. 5 
C 

FUNCTION  FSIN(I,Nt 

PI  =  3.1415926585 

FRACT  =  FLOAT( I  )/FLOAT(N) 

FSIN  =   (SIN(  .5*PIi*FRACT  )) 

RETURN 
END 

Ci^i(iHfififif**if^ifififififififififififififififififififififif*ififififififif*iM(*ififififi«if***ifit*if*i(«iH*»iHtif*if*if 

SUBROUTINE  CLRSCRN 
C 

C   LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
C 

ISTAT  =  LIB$ERASE_PAGE  (1,1) 

RETURN 

END 

Cifififififii^ifififififififififififififififififififififif*ififififif*W*ififififififififi(*i(*************if******** 

SUBROUTINE  QUERY(NANS) 
C 

C   ROUTINE  TO  TRAP  ERRORS  CAUSED  BY  IMPROPER  RESPONSES  TO  QUESTIONS. 
C   THE  COMPUTER  GENERATES  AND  ERROR  WHEN  A  CHARACTER  IS  SUPPLIED  TO 
C   A  QUESTION  EXPECTING  AN  INTEGER  OR  REAL  VALUE. 
C 

NOTEST=0 
1    CONTItJUE 

IF    (fa  I  EST    .GT.    0  1    THEN 

PRINT  if,  ■   CHA-.£>CTER  VALUES  ARE  NOT  VALID.' 
PRINT  if,  •   PLE,.3E  ENTER  AN  INTEGER  VALUE.' 

END  IF 

NQTEST  =  NOTEST  +  1 

READ  (5,if,ERR=l)NANS 

RETURN 

END 

SUBROUTINE  GAUSS  ( NRHS  ) 
C 

C        SOLUTION  OF  LINEAR  ALGEBRAIC  SYSTEM  BY 
C         GAUSS  ELIMINATION  WITH  PARTIAL  PIVOTING 
C 

C  CA         =  COEFFICIENT  MATRIX 

C  NEONS     =  NUfBER  CF  EQUATIONS 

C  NRHS       =  NUMSER  OF  RIGHT  HAND  SIDES 

C 

C  RIGHT-HAND  SIDES  AND  SOLUTIOfJS  STORED  IN 

C  COLUMNS  NEQNS+1  THRU  NEQNS+NRHS  OF  ^A 

C 

COMMON  DX,DY,AR,PI 
COMMON  /COF/  A(550,351),NEQNS 
NP      =  NEQNS  +  I 
NTOT     =  NEQNS  +  NRHS 
C 

C  GAUSS  REDUCTION 

C 

DO  150   I  =  2, NEQNS 
C 

C  --   SEARCH  FOR  LARGEST  ENTRY  IN  (I-l)TH  COLUMN 

C  ON  OR  BELOW  MAIN  DIAGONAL 

C 

IM      =1-1 

IMAX     =  IM 

AMAX     =  ABS(A(IM,IM)) 

DO  110   J  =  I, NEQNS 

IF  (AMAX  .GE.  ABS(A( J,IM)  ))  GO  TO  110 
IMAX     =  J 

AMAX     =  ABS(A(J,IM)) 
110    CONTINUE 

c 

C  ~        SWITCH    (I-l)TH   AND   IMAXTH   EQUATIONS 

C 


70 


IF  (IMAX  .NE.  IM)   GO  TO  1<^0 
DO  130   J  =  IM,NTOT 
TEMP     =  A(IM,J  ) 
A( IM.J)  =  AIIMAX,J) 
A(ItlAX,J)  =  TEtlP 
130    CONTINUE 
C 

C  ELIMINATE  (I-l  )TH  UNKNOWN  FROM 

C  ITH  THRU  (NEQNS)TH  EQUATIONS 

C 
140   DO  150   J  =  I.NEQNS 

R  =  A(  J,IM)/A(IM,IM) 
DO  150   K  =  I.NTCT 
150       AIJ,K)  =  A(J,K)  -  R*A(IM,K) 

C  BACK  SUBSTITUTION 


C 


DO  220   K  =  NP,NTOT 

A(NEQNS,K)  =  A(NEQNS,K)/A(NEQNS,NEQNS) 
DO  210   L  =  2,NEgNS 

I        =  NEQNS  +  1  -  L 
IP      =1+1 
DO  200   J  =  IP, NEQNS 
200        A(I,K)   =  A(I,K)  -  A(I.J)*A(  J,K) 
210        A(I,K)   =  A(I,K)/A(I,I) 
220   CONTINUE 
RETURN 
END 
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Introduction 

The  purpose  of  this  manual  is  to  permit  the  user  to  utihze  the  JETFLAP  program  very 
quickly  and  easily  while  requiring  little  understanding  of  the  underlying  EVD  theory. 
The  program  JETFLAP  can  be  run  as  a  stand  alone  program  if  the  user  wants  to  de- 
velop the  JETFLAP  input  data  file  manually,  but  this  is  not  recommended.  The  layout 
of  the  data  is  not  intuitive  and  its  formatting  is  critical.  For  this  reason,  the  program 
JETFLAPIN  has  been  created  to  assist  the  user  in  creating  the  JETFLAP  input  data  file 
through  an  interactive  terminal  session. 

This  interactive  program  is  a  user-friendly  way  of  creating  the  input  data  file  required 
by  the  wing  analysis  program  JETFLAP.  When  executed,  JETFLAPIN  asks  questions 
of  the  user  in  order  to  construct  and  write  to  a  file  the  required  JETFLAP  input  data  file. 

The  following  manual  contains  an  explanation  of  the  required  input  data.  The  reader 
will  find  a  parallel  explanation,  with  minor  modifications,  in  References  7  and  8.  Some 
parts  of  these  sources  have  been  duplicated  in  total  since  they  required  no  comment  and 
were  relevant  to  the  present  explanation.  References  to  input  data  cards  have  been 
changed  to  data  file  lines.  In  the  interest  of  space,  some  sections  were  not  included,  but 
the  interested  reader  may  find  them  helpful. 

Three  sample  data  input  files  and  their  associated  output  files  are  included  at  the  end 
of  this  appendix.  The  file  VOYTEST.DAT  contains  information  approximating  the 
VOYAGER  wing  planform.  TAPER.DAT  illustrates  the  use  of  the  trapezoidal 
planform  simplification  and  a  semi-circle  spacing  scheme.  The  wing  is  swept  45  degrees, 
has  an  aspect  ratio  of  8.0  and  a  taper  ratio  of  0.45.  The  DOUGLAS.DAT  data  file  is 
contained  in  Ref  7  and  was  also  located  at  the  end  of  the  magnetic  tape  following  the 
program  JETFLAP.  It  has  been  used  as  a  program  validation  test  case  by  comparing 
the  present  results  with  those  of  Refs.  7  and  8.  This  file  contains  information  for  a 
simple  rectangular  jet-Happed  wing  and  three  fundamental  cases.  The  stability  derivative 
flag  has  also  been  set. 

Assumptions  and  Limitations 

Before  using  this  program,  the  user  should  be  aware  of  the  assumptions  used  in  devel- 
oping the  EVD  method  and  the  resultmc  danser  of  extending  the  theorv  bevond  its 
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limits.    The  assumptions  are  explained  in  the  section  on  theory  contained  in  References 
7  and  8.  but  they  are  summarized  below. 

1.  Linearity  -  This  assumption  allows  the  superposition  of  fundamental  geometric 
cases  or  solutions  but  also  limits,  as  an  example,  the  total  deflection  of  flow  by 
flaps.  Reference  7  states  that  the  small  angle  assumptions  of  the  linearized  ap- 
proach make  it  unlikely  that  the  program  would  accurately  predict  the  character- 
istics of  a  wing  with  a  flap  deflected  at  60  degrees. 

2.  Thin  Wing  Approximation  -  Enabling  the  simplified  treatment  of  wing  sections  by 
transferring  boundary  conditions  to  the  chordline,  this  assumption  limits  the  accu- 
racy of  the  program  in  modeling  thick  wings. 

3.  Inviscid  Flow  -  Because  of  its  inability  to  predict  separated  flow,  the  computed  lift 
may  be  unrealistically  large  for  a  wing  at  high  angle  of  attack  or  with  a  sizeable  flap 
deflection.    Also,  the  program  cannot  consider  parasitic  drag. 

4.  Incompressibility  -  This  assumption  limits  the  range  of  speeds  for  which  the  pro- 
gram can  be  used  to  that  in  the  low  subsonic  range.  The  Prandtl-Glauert  rule  can 
be  applied  to  cases  where  subsonic  Mach  number  eflects  become  important  (Ref 
3)  and.  in  fact,  has  been  included  in  a  later  version  of  this  EVD  program. 

5.  Irrotationality  -  The  irrotationality  assumption  usually  imposes  no  additional  limi- 
tation in  low-speed  external  aerodynamics  where  the  flow  can  be  considered 
irrotational. 

6.  Interference  Effects  -  No  allowance  is  made  for  mutual  interference  elTects  between 
the  wing  and  pylons,  nacelles  or  fuselage.   Ground  effect  is  also  neglected. 

7.  Wing  Area  \'ariation  -  Although  multiple-flapped  wings  may  be  modeled,  no  al- 
lo^^■ance  is  made  for  the  increased  wing  area  due  to  flap  extension.  An  example  is 
a  Fowler  Flap.  If  the  configuration  of  concern  is  such  a  case,  a  modification  of  the 
original  wing  planform  area  input  value  would  have  to  be  made. 

8.  Trailing  Edge  Jet  Sheet  -  The  program  only  allows  the  jet  sheet  to  emanate  from 
the  wing  trailing  edge.  Therefore,  doubtful  results  will  be  obtained  on  augmentor- 
t>pe  flaps,  slots  and  externally  blown  flap  systems. 

9.  Computer  Run  Time  -  An  increase  in  the  number  of  elements  used  to  model  the 
wing  planform  will  increase  accuracy.  Mowe\er.  according  to  Reference  "  the  time 
to  compute  increases  proportionally  between  the  square  and  the  cube  of  the  num- 
ber of  elements  used.  On  the  MicroVAX  2U00,  a  run  using  112  elements 
(VOYAGR.DAT.  no  jets,  two  fundamental  cases)  took  137  seconds  to  run.  while 
a  wing  with  37  elements  (DOUGLAS. DAT.  21  wing  16  jet  elements,  three  cases 
and  stability  derivatives)  required  only  91  seconds.  These  times  may  be  further 
shortened  by  sending  the  output  to  a  file  vice  the  screen.  In  the  case  of  the 
VOYAGR.DAT  run,  the  lime  was  cut  by  more  than  half  to  a  mere  59  seconds. 


Data  Preparation  Requirements 

Prior  to  using  the  JETFLAPIN  and  JETFLAP  programs,  the  user  must  accomplish  the 
following: 
1.   Draw  a  scaled  plan  view  of  the  wing  and,  if  present,  the  jets. 
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2.  Divide  this  planform  into  spanwise  sections  parallel  to  the  freestream  velocity.  A 
maximum  ol  4(J  is  permitted. 

3.  Divide  each  section  into  rectangular  base  elements.  These  elements,  literally,  are 
the  bases  of  the  EVD  elements  [Ref.  8:  p.  53]  which,  in  turn,  are  the  "building 
blocks"  of  the  program  operation.  Each  row  can  be  divided  into  a  maximum  of  40 
base  elements,  20  on  the  wing  and  20  on  the  jet.  However,  the  maximum  number 
of  these  elements  may  not  exceed  600. 

4.  Using  a  logical  scheme,  translate  the  arrangement  of  these  elements  and  the  de- 
flections of  the  EVD's  into  a  format  usable  by  the  program. 

5.  Refer  to  the  section  on  the  Formulation  of  the  Input  Data  for  a  suggested  method 
of  approaching  the  problem  of  data  determination. 


Input  Description 

A  brief  description  of  each  piece  of  input  information  required  is  provided  during  exe- 
cution of  the  JETFLAPIX  program,  however  for  the  benefit  of  the  user  they  are  re- 
peated and  expanded  upon  here. 

•  Title  Line  -  This  card  provides  any  desired  description  of  the  computer  rim.  The 
title  will  be  printed  at  the  top  of  the  first  page  of  output.  A  maximum  of  80  char- 
acters may  be  input. 

•  General  Planform  Parameter  Line  -  This  Une  contains  basic  planform  information. 

AREA  Wing  area,  in  units  of  (SPAN)-  to  be  used  for  normalization  of  the 
aerodynamic  coefficients.  Must  be  in  the  same  units  as  SPAN,  i.e.,  if 
span  is  in  feet,  the  area  should  be  in  ft-. 

SPAN        Wing  span,  in  any  desired  length  units. 

CREF  Wing  reference  chord,  to  be  used  for  normahzing  various  aerodynamic 
coellicients.  It  may  be  any  chord  length  and  must  be  in  the  same  units 
as  SPAN.  If  a  value  ol'  0.0  is  input,  the  mean  aerodynamic  chord, 
CMAC,  which  is  computed  automatically,  will  be  used. 

XMC  Pitching  moment  center.  Point  about  which  pitching  moments  will  be- 
taken, measured  from  the  wing  apex.  Same  units  as  span.  NOTE:  The 
wing  apex  is  defined  by  the  program,  impUcitly,  as  the  intersection  of  the 
X-axis  with  the  leading  edge  when  the  wing  is  oriented  without  a  sideslip. 
If  the  wing  should  be  input  in  a  yaw,  the  apex  remains  at  that  point. 

XCG  Wing  Center  of  Gravity.    Measured  from  the  apex,  this  point  is  used  as 

a  pitching  axis  for  computation  of  stabilitv  derivatives,    XCG  need  only 
be  input  if  IDERIV  #  0.    Same  units  as  SPAN. 

•  General  Control  Line  -  This  line  contains  control  "flags"  which  describe  the  basic 
characteristics  of  the  computer  run. 

NROWS  Number  of  spanwise  sections  (rows)  into  which  the  wing  is  divided.  For 
symmetric  or  anti-symmetric  wings,  only  the  number  of  sections  on  the 
right  half  of  the  wing  should  be  input.  For  non-symmetric  wings, 
NROWS  equals  the  total  number  of  spanwise  rows  from  wing  tip  to 
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wing  up.    See  jRef.  8:  pp.  79-81]  for  a  discussion  on  synimelric  versus 

non-synunetric  wings. 

NCASES  Total  Number  of  Fundamental  Cases.  There  will  always  be  one  funda- 
mental case,  that  being  a  Hat  plate  at  one  degree  angle  of  attack.  No 
input  data  is  required  for  that  case  and  it  will  be  labeled  by  the  program 
a  Case  1.  Therefore.  NCASES  must  be  one  greater  than  the  number  of 
cases  for  which  input  data  will  be  given  (data  hnes  12  and  13),  to  allow 
for  the  angle  of  attack  case. 

ISYMM    Symmetry  Indicator. 

•     =0,  Wing  is  symmetric 

■  >  0,  Wing  is  non-symmetric 

■  <  0,  Wing  is  anti- symmetric 
IPRINT    Printed  Output  Control  Flag. 

■  >  1.  Print  geometry  details  and  total  aerodynamic  coefficients, 
"     =  1.  In  addition,  print  spanwise  loading. 

■  =  0,  In  addition,  print  chordwise  loadmg. 

■  <  0,  In  addition,  print  all  matrices,  back  substitution  checks  and 
other  details.  This  option  is  normally  reserved  for  trouble-shooting, 
since  it  produces  a  very  large  amount  of  output. 

JETFLG  Jet  Indicator  Flag.  A  flag  used  for  signaling  if  there  is  a  jet  issuing  from 
the  trailing  edge  of  the  wing. 

■  =  0.  There  is  a  jet  sheet  and  jet  data  will  be  input. 

■  =1.  There  is  no  jet  sheet. 
IGTYPE   Wing  Planform  Geonietry  Flag. 

■  =1.  ^\'ing  planform  is  completely  arbitrary  and  sectional  leading  and 
trailing  edge  coordinates  will  be  read  to  defme  the  planform. 

■  =  2.  Wing  is  trapezoidal  and  simplified  planform  data  will  be  input. 
This  type  of  input  can  only  be  used  if  the  wing  is  symmetric.  NOTE: 
Although  a  triangular  shaped  wing  might  be  thought  of  as  a  degen- 
erative trapezoid,  this  input  cannot  be  used  for  a  delta  planform. 

HINGE     Hinge  EVD  Flag. 

"     =0,  Regular  EVD's  will  be  used  on  all  hinge  elements. 

■  >  0,  Hinge  EVDs  will  be  used  on  all  hinge  elements.  Not  permitted 
if  computing  dynamic  stability  derivatives,  i.e.,  IDERIV  >  0. 

IDERIV    Dynamic  Stability  Derivative  Flag. 

■  =  0,  Basic  run  will  be  executed  with  no  stability  derivatives  computed. 

■  >  0,  In  addition,  a  dynamic  stability  derivative  run  will  be  executed. 
This  option  requires  the  program  to  make  an  additional  run.  ap- 
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proximately  doubling  the  computer  time.  NOTE:  The  derivative  run 
also  reduces  to  8  the  maximum  number  of  optional  fundamental  cases 
permitted,  since  an  extra  fundamental  case  is  generated  by  the  pro- 
gram to  be  used  during  derivative  calculations. 

•  Section  Centerline  Location  Lines  -  These  lines  contain  the  spanwise  locations  of 
the  centerline  of  each  wing  {and  jet)  section.  JETFLAPIN  will  will  place  up  to 
eight  values  on  each  line,  with  a  maximum  of  5  lines  (40  sections)  allowed. 

Y  Spanwise  distance  from  wing  centerline  (x-axis)  to  the  section  centerline, 

normalized  by  SPAN,  2.  All  values  must  satisfy  (-1.0  <  Y  <  LO). 
NROWS  (number  of  row  sections)  values  must  be  input,  beginning  at 
the  right  wing  tip  and  working  to  the  wing  centerline  for  s\nimetric  or 
anti-symmetric  wings,  or  to  the  left  wing  tip  for  non-symmetric  v/ings. 

•  VVing  Section  Type  Line  -  This  card  indicates  the  chordwise  arrangement  of  EVD 
elements  for  each  section  on  the  wing.  The  section  type  is  determined  by  the 
number  and  spacing  of  the  elements  within  each  section. 

ICTYPE  Type  Number  of  Each  ^^'ing  Section.  Any  sections  having  the  same 
number  of  elements,  all  with  the  same  distance  from  the  section  leadmg 
edge  (normalized  by  the  xectional  chord)  are  of  the  same  ICTYPE.  A 
maximum  of  ten  different  types  is  allowed.  The  section  at  the  right  wing 
tip  is  designated  ICT'^'PE  01.  Each  new  type  receives  a  sequentially 
higher  ICTYPE.  The  highest  ICTYPE  is  referred  to  by  the  program  as 
NWTYPE.  NROWS  values  must  be  input,  therefore,  each  section  must 
be  "typed". 

•  Number  of  Chordwise  ^^'ing  Elements  Line  -  This  line  contains  the  number  of 
chordwise  EVD  elements  for  each  wing  section  type  (ICT\'PE). 

NI  Number  of  Chordwise  Elements  per  ICTYPE.   Enter,  in  ascending  order 

by  ICTY'PE,  the  number  of  elements  within  that  ICT'i'PE.  There  may 
be  as  few  as  two  or  as  many  as  twenty  elements  per  section  type. 
NWT^'PE  (the  number  of  different  section  types)  values  are  required. 

•  Wing  Cliord>\ise  Element  Coordinates  -  These  lines  contain  the  x  c  coordinates  of 
each  EVD  element  for  each  ICTYPE. 

XBW  The  chordwise  coordinate  of  each  EVD  vortex  point,  measured  from  the 
leading  edge  of  the  section,  normalized  by  the  sectional  chord.  The  first 
XBW  of  each  set  must  be  0.0  and  the  last,  less  than  I.O.  There  may  be 
as  few  as  two  or  as  many  as  twenty  values  per  section  type.  NWT^'PE 
(the  number  of  different  section  types)  sets  of  values  are  required. 
NOTE;  Reference  7,  Vol.  II  refers  to  these  coordinates  as  XB.  The  "W" 
was  added  in  reference  8  to  be  consistent  with  the  nomenclature  of  the 
program  listing  and  also  to  differentiate  between  hinge  point  coord., 
XBH,  and  XBJ,  the  coords,  of  elements  on  the  jet  sheet  portion  of  the 
section. 


• 


Planform  Information  Lines  -  There  are  two  types  of  input  lines  used  to  define  wing 
planform.  Line  8a  is  used  for  arbitrarv'  wing  planforms  (IGTYPE=  1).  Line  8b  is 
used  for  trapezoidal  wing  planforms  (IGTYPE=2).  The  program  JETFLAPIN 
will  choose  the  correct  form  based  on  the  value  of  IGTYPE. 


77 


• 


• 


• 


Leading  and  Trailing  Edge  Coordinates  -  In  order  to  define  an  arbitrar>-  planform, 
the  leading  and  trailing  edges  for  each  section  must  be  defined.  All  section  coor- 
dinates need  not  be  input,  however.  The  program  must  have  the  tip  and  root  co- 
ordinates, as  a  minimum,  and  any  other  section's  which  would  define  a  break  in  the 
edge.  The  program  will  assume  a  straight  edge  exists  between  coordinates  input, 
and  will  interpolate  between  them.  A  minimum  of  two  sets  of  coordinates  and  a 
maximum  of  NROWS  is  required. 

Y  Spanwise  distance  from  a  section  centerline  to  the  centerline  of  the  wing, 

normalized  by  the  half  span.  Each  value  must  be  exactly  the  same  as 
those  input  for  the  section  centerline  location  lines.  JETFLAPIN  auto- 
matically uses  the  previously  input  values. 

XLEAD  Leading  Edge  Coordinate.  Input  the  chordwise  distance  from  the  section 
leading  edge,  at  the  section  centerline,  to  the  wing  apex.  Same  units  as 
SPAN,  i.e.,  not  normalized  by  the  chord. 

XTRAIL  Trailing  Edge  Coordinate.  Input  the  chordwise  distance  from  the  section 
trailing  edse.  at  the  section  centerline,  to  the  wins  apex.    Same  units  as 

spanT 

9  A  "9"  must  appear  in  column  one  of  the  next  Hne  after  the  last  edge  co- 

ordinate in  order  to  signal  that  all  desired  sections  have  been  input.  This 
is  required  onlv  if  IGTYPE=1  and  is  handled  automatically  bv 
JETFLAPIN. 

Trapezoidal  Wing  Parameters  -  This  line  contains  planform  information  for  the 
trapezoidal  wing.  It  is  used  when  lGT'lTE=2.  This  type  of  input  may  be  used 
only  when  the  wing  planform  is  symmetric. 

ARATIO  Wing  Aspect  Ratio.    Input  the  value  of  (SPAN)-  AREA.   JETFLAPIN 

automatically  calculates  this  value  from  previously  supplied  information. 

SWEEP    Sweep  angle  of  the  Quarter-Chord  Line.    Input  the  angle  in  degrees. 

TR  Taper  R  ;tio.    TR  is  defined  as  the  chord  at  the  wing  tip  divided  by  the 

chord  at  the  wing  root. 

Jet  Section  Type  Line  -  This  line  indicates  the  chordwise  arrangement  of  EVD  ele- 
ments for  each  section  on  the  jet  sheet.  The  jet  sheet  uses  the  same  sectional 
boundaries  as  the  conventional  wins  sections  for\\ard  of  it.  This  line  is  required 
onlvifJETFLG  =  0. 

IJTVPE  Type  Number  of  Each  Jet  Section.  Input  the  type  number  of  each  sec- 
tion of  the  wing  with  respect  to  the  presence  of  a  jet  sheet  aft  of  it.  Since 
there  is  no  requirement  that  the  jet  sheet  span  the  entire  wing,  sections 
without  a  jet  are  designated  with  a  "0".  Similar  to  line  5,  the  wing  section 
type  line,  as  each  section  within  the  jet  sheet  is  encountered,  it  either  re- 
ceives a  sequentially  higher  IJT^TE  of  the  same  I J  TYPE  as  a  previously 
labeled  equivalent  section.  The  number  of  dilTerent  jet  section  types  is 
NJT^  PE.  The  zeroes  do  not  count  as  IJTYPE's  for  the  purpose  of 
summing  types  to  find  NJTYPE.  The  number  of  non-zero  values  input 
is  NROWSJ.  the  number  of  sections  having  a  jet.  The  maximum  num- 
ber of  jet  section  types  is  10.  Implied  also  is  that  NJTYPE  must  be  less 
than,  or  equal  to.  NROWSJ.    NROWS  values  are  required. 
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NOTE:  Due  to  a  computational  procedure,  there  must  be  at  least  three 
adjacent  jet  sections  if  there  is  one.  Also,  inboard  or  outboard  of  a 
partial  span  jet  sheet,  a  group  of  at  least  three  unblown  sections  must 
exist. 

•  Number  of  Chord\\ise  Jet  Elements  -  This  hne  contains  the  number  of  chordwise 
EVD  elements  for  each  jet  section  type.  It  is  similar  to  line  6.  number  of  chordwise 
wing  elements  per  section  type,  except  that  NJTYPE  values  must  be  input.  Re- 
quired only  if  JETFLG  =  0. 

NI  Number  of  Chordwise  EVD  Elements  for  Each  Jet  Section  Type.   Enter, 

in  ascending  order  by  IJTYPE,  the  number  of  elements  within  that 
IJTYPE.  There  may  be  as  few  as  two  or  as  many  as  ten  elements  for 
each  jet  section  type.  NJTYPE  (the  number  of  different  jet  section 
types)  values  are  required. 

•  Jet  Chords  ise  Element  Coordinates  -  These  lines  contain  the  x,  c  coordinates  of  each 
element  of  each  jet  section  type.  NJTYPE  sets  lines  are  required,  each  with  NT 
values  of  X  c.   These  values  are  required  only  if  JETFLG  =  0. 

XBJ  Chordwise  Coordinate  of  Each  per  IJTYPE.    The  chordwise  coordinate 

of  each  EVD  vortex  pohit.  measured  from  the  leading  edge  of  the  sec- 
tion (at  centerline)  and  normahzed  by  the  sectional  chord.  Thefirst  value 
for  XBW  of  each  set  must  be  1.0  (traiUng  edge).  The  last  two  base  ele- 
ments in  the  jet  section  are  overlapped  by  the  Far-Jet  (or  Jet.  or  Infinity) 
EVD  which  has  a  length  of  10'°,  approximating  infinity.  Therefore,  there 
is  no  proactical  maximum  coordinate  for  elements  within  the  jet.  There 
may  be  as  few  as  two  or  as  many  as  ten  values  per  jet  section  type. 
NJTYPE  (the  number  of  different  jet  section  t}pes)  lines  of  values  are 
required. 
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Fundamental  Case  Control  Line  -  This  hne  identifies  the  types  of  hnear  geometric 
variations  to  be  included  in  each  fundamental  case.  The  number  of  fundamental 
cases  input  must  be  one  less  than  NCASES  (line  3),  to  allow  for  the  angel  of  attack 
case.  A  separate  line  is  required  for  each  of  the  input  cases.  In  each  of  the  flags 
below,  a  zero  value  indicates  omission  of  the  respective  type  of  input  for  that  fun- 
damental case.  A  non-zero  value  indicates  that  the  variation  will  be  included  and 
input  must  be  given  to  define  it.  JETFLAPIN  sets  the  non-zero  value  to  corre- 
spond with  the  number  of  the  i\!ndamental  case.  i.e..  for  fundamental  case  number 
two.  variations  to  be  included  will  be  indicated  with  a  "2".  For  each  variation  se- 
lected, a  corresponding  line  will  follow  containing  the  information  defining  that 
variation.  NOTE:  Refs.7  and  S  use  the  same  names  shown  below,  however,  in  the 
program  hsting  fo-  JETFLAP  under  subroutine  INCASE  thev  are  refered  to  re- 
spectively as  INPUTT.  INPUTH.  INPUTD,  INPUTC,  and  INPUTB. 

INTVVST  Spanswise  twist  distribution  flag. 

INHITE    Leading  edge  vertical  displacement  flag. 

LNDELJ   Jet  deflection  flag. 

INCAMB  Camber  flag. 

LNBETA   Wine  hinse  deflection  flag. 
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•    Fundamental  Geometric  Variation  Lines  -  These  lines  are  input  only  in  the  appro- 
priate Hags  in  the  fundamental  case  control  line  has  been  set  to  a  non-zero  value. 

TSVIST  Sectional  Wing  Twist.  Enter  the  wing  twist,  in  degrees,  at  the  section 
centerline.  with  respect  to  the  wing  reference  plane.  Positive  values  are 
in  the  same  sense  as  a  positive  angle  of  attack  (leading  edge  up). 
NROWS  values  are  required.    Required  only  it  INTWST  7^  0. 

HO  Displacement  coordinate  of  the  section  leading  edge  from  the  wing  ref- 

erence plane,  normalized  by  the  sectional  chord.  Leading  edge  displace- 
ment may  be  the  result  of  dihedral,  twist,  nonlinear  movement  of  a 
leading  edge  device,  etc.  Translation  resulting  from  ordinary  linear 
leading  and  trailing  flap  deflections  and  angle  of  attack  are  accounted  for 
automatically  by  the  program.  These  values  are  used  only  for  the 
computaion  of  the  jet  thrust  contribution  to  pitching  moments  and 
therefore  will  have  no  effect  unless  jet  sheets  exist.  NROWS  values  are 
required.    Required  only  it  INHITE  7^  0. 

DJ  Jet  Turning  Angle.     The  jet  turning  angle,  in  degrees,  relative  to  the 

traiUng  edge.  Positive  deflection  is  downward.  NOTE:  JETFLAPIN 
requires  that  the  values  are  input  in  the  order  that  they  are  encountered 
within  the  jet  sheet,  working  from  the  right  wing  tip  towards  the 
centerUne.  NROWSJ  values  are  required.  Required  only  it  INDELJ  # 
0. 

ICT  Camber  Type  Number  for  Each  Wing  Section.    These  values  are  similar 

to  the  wing  section  type  values  on  line  5.  In  order  for  two  sections  to 
have  the  same  ICT.  the  number  of  elements,  their  x'c,  and  the  camber 
angle  associated  with  them  must  be  the  same.  NROWS  must  be  input 
with  a  maximum  of  10  ICT's  allowed.  The  highest  value  is  NCT  and 
there  may  be  no  "gaps"  in  the  numbering  sequence.  A  zero  value  indi- 
cates no  camber.    Required  only  it  INCAMB  ^  0. 

AC  Camber  Angle.    The  camber  angle,  in  degrees,  at  eh  downwash  control 

point  of  each  EVD.  The  dowiwash  control  point  is  defined  as  a  point 
chosen  halfway  between  adjacent  XBW's  (line  7)  including  the  trailing 
edge.  The  angle  will  be  positive  in  the  same  sense  as  positi\e  angle  of 
attack.   NCT  lines  are  required.    Required  only  it  INCAMB  #  0. 

ACTE  Trailing  Edge  Camber  Angle.  This  is  the  trailing  edge  deflection  angle 
due  to  camber  only.  1  he  values  are  used  for  determining  the  angle  at 
which  the  jet  sheet  issues  from  the  wing.  These  cards  are,  therefore,  only 
necessan.-  if  there  is  camber  (INCAMB  ^  0)  and  if  there  is  a  jet  sheet 
(JETFLG  ^  0).   NROWSJ  values  are  required. 

IHT  Hinge  Section  Type.    Similar  in  concept  to  Wing  Type  (ICTYPE)  and 

Camber  Type  (ICT);  starting  with  the  first  section,  designate  the  type 
of  section  with  respect  to  hinges  in  the  section.  A  section  with  no  hinges 
will  be  "0".  For  sections  to  have  the  same  IHT  they  must  be  alike  in 
their  number  of  hinges,  not  to  exceed  four,  location  of  hinges  (x  c),  their 
type  (leading  or  trailing  edge  flap)  and  in  all  deflections.  There  may  be 
as  many  diOerent  IHT's  as  there  are  sections.  The  number  of  different 
HIT'S  is  called  NUT,  and  there  may  be  no  "gaps"  in  the  sequence. 
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NROWS  values  are  required,  therefore  everv  section  must  be  "tvped". 
Required  only  it  INBETA  ^  0. 

XBH  Hinge  Point  Distance.   The  distance  from  the  leading  edge  of  the  section 

to  the  hinge  point,  i.e..  where  the  hinge  line  intersects  the  section 
centerline.  the  distance  is  normalized  by  the  sectional  chord  and  must 
be  one  of  the  XBW  values  entered  on  Une  7.  A  set  of  values  is  required 
for  each  hinge  section  type;  NHT  sets. 

ILT  Leading  or  Trailing  Edge  Indicator. 

■  =0,  Trailing  edge  flap  hinge  (positive  deflection  in  the  sense  of  posi- 
tive angle  of  attack). 

■  =7^  0,  Leading  edge  flap  hinge  (positive  deflection  in  the  sense  of  neg- 
ative angle  of  attack). 

BETA  Hinge  Deflection  Angle.  The  deflection  angle,  in  degrees,  of  the  element 
aft  of  the  hinge  point  relative  to  the  element  forward  of  the  hinge  point. 

•  Composite  Case  Lines  -  These  lines  indicate  how  the  fundamental  cases  that  are 
input  on  lines  12  and  13  are  to  be  combined  to  form  or  model  the  wing  under  study. 
A  maximum  of  24  composite  cases  are  permitted.  No  composite  case  may  also  be 
chosen  and  JETFLAPIN  will  automatically  place  a  "9"  in  the  first  column  of  this 
line. 

N  Fundamental  Cases  to  be   Included.      Indicate  the  fundamental  case 

number  which  is  to  be  included  in  forming  a  given  composite  case.  As 
many  as  ten  fundamental  cases  may  be  combined  in  any  one  composite 
case.  The  fundamental  cases  are  identified  in  the  order  in  which  they 
were  input.  NOTE:  Recall  that  fundamental  case  number  1  is  the  one 
degree  angle  of  attack  case. 

A  Multiplicative  Factor.    This  factor  multiplies  the  fundamental  case  pre- 

viously input.  Had  the  fundamental  case  included  a  hinge  dellection  of 
10  degrees,  a  value  of  A  =  1.6  would  introduce  a  flap  deflection  of  16 
degrees  into  that  particulat  composite  case. 

9  End  o[  Composite  Cases.    This  value  is  placed  at  the  end  of  the  last 

composite  case  or  by  itself  to  indicate  the  completion  of  composite  case 
information  or  that  no  composite  cases  are  desired,  respectively.  NOTE: 
This  "9"  card  is  not  conditional,  it  will  be  in  every  run. 

•  Jet  Strength  Line(s)  -  These  Hnes  contain  the  jet  strength  for  all  sections  which 
have  a  jet.  An  unlimited  number  of  sets  of  values,  maximum  of  40  per  set,  may 
be  entered.   NROWSJ  values  are  required.    Required  only  it  JETFLG  =  0. 

CMU  Sectional  Jet  .VI omentum  Strength  for  each  jet  row.  CMC  is  defined  as 
CMU  =  J  (qc(y)),  where  J  is  the  sectional  jet  momentum  per  unit  span, 
q  is  the  dynamic  pressure,  and  c{y)  is  the  sectional  chord.  Since  the  data 
refers  to  only  sections  with  jets.  0.0  may  not  be  input  unless  all  are  0.0. 
As  many  sets  of  CMU  data  may  be  input  as  desired.  To  run  a  case  on 
a  jet-flapped  wing  to  examine  the  characteristics  without  the  jet.  a  set 
of  values  all  equal  to  zero  must  be  entered.  This  option  generates  a 
complete  set  of  loadings  and  other  aerodynamic  coefficients  for  each  set 
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ofCMU  data  input. 
=  0. 


(0.0  <  CMU  <  800.0)    Required  only  it  JETFLG 


A  "9"  is  placed  in  column  one  of  the  line  following  all  CMU  data  to 
signal  the  end  of  CMU  input.   Handled  automatically  by  JETFLAPIN. 


i 
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Input  Restrictions 

A  suniiiian.'  of  the  input  restrictions  described  in  References  7  and  S  is  listed  below. 
These  have  been  incorporated  into  the  error-checking  and  screen  messages  provided  in 
the  JETFLAPIN  progr  m  and  are  repeated  here  as  a  quick  reference  during  data  prep- 
aration. 

1.  A  "Rule  of  Three"  is  implied  with  regard  to  dividing  the  wing  (and  jet  sheet)  into 
sections.  At  least  three  adjacent  sections  of  either  blown  or  unblown  types  are  re- 
quired. A  jet  cannot  consist  of  one  or  two  sections.  Likewise,  if  the  region  of  jet 
sheet  is  partial  span  and  located  so  that  it  is  bordered  on  both  inboard  and  out- 
board sides  by  conventional  (unblown)  wing,  those  unblown  portions  of  the  wing 
must  also  have  three  adjacent  sections  each. 

2.  The  number  of  spanwise  sections,  NROWS,  requires  3  <  XROWS  <  40. 

3.  1  <  NCASES  <  10.  There  is  always  one  Fundamental  Case  generated  by  the  pro- 
gram.  Nine  others  may  be  input. 

4.  The  number  of  chordwise  elements  in  the  wine  part  of  a  section,  N'l,  requires 
2<M<2U. 

5.  The  number  of  chordwise  elements  in  the  jet  part  of  a  section.  XI,  requires 
2  <  XT  <  20. 

6.  Maximum  of  10  section  types  for  the  wing  or  the  jet.   (ICTYPE,  IJTYPE  <  10  ). 

7.  On  the  wmg.  0.0  <  XBW  <  1.0. 

8.  On  the  jet,  I.O<XBJ. 

9.  Onlv  XROWSJ,  the  number  of  rows  with  jets,  values  required  for  DJ,  ACTE.  and 
CMU. 

10.  Maximum  number  of  camber  section  types  is  10. 

11.  There  n:iav  be  as  manv  hinse  section  tvpes.  XHT.  as  there  are  rows  (or  sections). 
(1<XHT<  XROWS)' 

12.  Each  section  may  have  four  hinges  in  any  combination  of  leading  and  trailing  edge 
flaps. 

13.  The  jet  blowing  coefficient,  CMU,  is  restricted  to,  0.0  <  CMU  <  800.0. 


Formulation  of  the  Input  Data 

The  most  dilTicult  and  time-consuming  part  of  the  wing  analysis  using  the  JETFLAP  and 
JETFLAPIX  programs  is  the  decomposition  of  the  wing  into  elements  and  obtaining  the 
coordinates  of  those  elements.  There  is  hope  that  follow-on  work  will  be  conducted  to 
integrate  the  sophisticated  graphics  capabiUties  of  the  Micro VAX,'2000  with  the  data 
input  portion  of  the  JETFLAP  program,  however,  for  the  present,  the  following  me- 
thodical approach  to  the  problem  is  recommended. 


83 


A  table  such  as  that  shown  in  Ref.  8,  p.  117.  will  help  the  user  organize  the  required 
data.  Starting  at  the  beginning  of  the  problem,  the  user  is  urged  to  follow  the  steps  be- 
low: 

1.  Make  or  obtain  a  scaled  drawing  of  the  wing  with  all  flaps  and  other  details  drawn 
on  the  planforni.  The  scaling  is  often  important  m  obtaining  geometrical  data  that 
is  often  not  presented  exphcitly. 

2.  If  possible,  create  equations  for  the  leading  and  trailing  edges.  For  e.xample,  if  the 
edge  is  a  straight  line,  substitute  tip  and  root  dimensions  into  the  Two-Point  Form 
of  the  equation  fo  a  straight  line.  Such  an  equation  will  facilitate  the  finding  of 
leading  trailing  edge  coordinates  once  spanwise  section  centerline  coordinates  have 
been  established. 

3.  Draw  in  spanwise  sections  taking  into  account  obvious  areas  of  rapidly  changing 
loading  (wing  tips,  near  flaps)  and  rapid  changes  in  sectional  chord.  It  is  important 
to  define  sections  near  breaks  in  the  wing,  such  as  leading  edge  extensions,  other- 
wise the  program,  seeing  only  the  wing  edge  coordinates,  niight  read  that  portion 
of  the  leading  edge  as  a  relatively  flat  segment  of  a  multisegment  tapered  wing. 

4.  Make  two  columns,  entering  sections,  starting  with  1  at  the  wing  tip.  in  column  one 
and  the  section  centerline  coordinates  (normalized  by  the  semi-span)  in  column 
two. 

5.  Draw  in  chordwise  elements  for  each  section.  It  is  more  expedient  to  strive  for  the 
same  distribution  on  each  section,  if  possible,  unless  camber  discontinuities  (flaps, 
rapid  changes  in  mean  camber  ine  slope)  dictate  otherwise. 

6.  Enter  the  coordinates  of  the  vortex  points,  normalized  by  the  sectional  chord,  on 
each  line  next  ot  the  appropriate  section.  NOTE.  One  of  these  coordinates  must 
coincide  with  the  point  where  the  section  centerline  intersects  a  flap  hinge  line,  if 
included.    Circle  or  otherwise  mark  such  coordinates  for  future  identification. 

7.  Proceeding  down  the  rows  of  coordinates,  any  two  rows  with  a  diflerent  number 
of  values  or  dilTerent  values,  are  of  diflerent  section  types.  In  ascending  order,  label 
in  another  column  each  row  with  its  type.  The  maximum  number  of  types  is  10 
and  the  highest  type  defined  is  called  NWTYPE. 

8.  At  the  end  of  each  row  write  the  total  number  of  chordwise  elements  in  that  row. 
Circle  the  numbers  that  correspond  with  diflerent  types. 

9.  In  another  column,  list  leading  and  trailing  edge  coordinates  by  substituting  (Y) 
values  into  the  leading  and  trailing  edge  equations,  if  available.  NOTE.  Only  those 
edge  coordinates  which  mark  wing  root,  tip  and  breaks  need  be  calculated,  if  the 
edges  are  straight  line  segments. 

10.  Looking  back  over  the  completed  table,  the  data  for  several  of  the  input  data  file 
lines  are  readily  available.   Column  numbers  refer  to  columns  in  Table  I. 

a.  Col.  2  is  line  4. 

b.  Col.  3  is  line  5. 

c.  Cols.  4-12  contain  data  for  line(s)  7. 

d.  Col.  13  (circled  entries)  is  line  6. 
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e.    Cols.  2,  14,  and  15,  in  that  order  constitute  line  8a. 

In  addition,  the  last  row  number  in  Col.  1  is  NROWS  (Cols.  1-2  on  line  3).  The 
total  of  Col.  13  entries  is  the  total  number  ofEVD's,  which  is  hmited  to  600.  More  de- 
tails may  be  found  in  Ref    S  . 

Sample  Problem 

A  sample  session  will  illustrate  the  use  of  the  JETFLAP  and  JETFLAPIN  programs. 
The  run  can  be  accomplished  using  one  of  the  sample  data  output  files  provided  at  the 
end  of  this  appendix.  It  is  recommended  that  one  of  the  simpler  data  files,  such  as 
TAPER.DAT  or  VOYAGR.DAT,  be  used  to  respond  to  the  questions  asked  by  the 
JETFLAPIN  program.  This  method  will  allow  the  user  to  try  out  the  program  and  get 
familiar  with  the  questions  asked,  prior  to  going  through  the  eflbrt  involved  in  formu- 
lating the  data  for  a  new  problem. 

Starting  the  Program 

Begin  with  the  screen  showing  the  DCL  prompt,  which  looks  like  this. 

$ 
Next,  ensure  that  the  program  is  in  your  director}'  by  typing 

DIR  [Return] 
and   viewing   the   files   for  JETFLAP.EXE,  JETFLAP.OBJ.,  JETFLAPIN.EXE   and 
JETFLAPIN. OBJ. 

If  only  the  JETFLAP.FOR  and  JETFLAPIN. FOR  files  exist,  you  must  compile  the 
programs  by  typing. 

FOR  JETFLAP  [Return]  .  and  if  necessary, 

FOR  JETFLAPIN  [Return] 
The  next  step  is  to  link  the  programs  by  entering, 

LINK  JETFLAP  [Return]  .  and  again  if  necessary, 

LINK  JETFLAPIN  [Return] 
The  files  JETFLAP.EXE,  JETFLAP.OBJ.,  JETFLAPIN.EXE  and  JETFLAPIN.OBJ 
will  now  exist  and  you  will  be  able  to  run  the  programs. 
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Running  the  Program 

To  run  the  program,  type 
JETFLAPIN  [Return] 

The  program  will  start  and  the  screen  will  display  the  header  for  the  interactive  program. 
Using  one  of  the  sample  data  files  for  the  correct  values  and  this  appendix  to  assist  you 
with  the  terminology,  answer  each  question  presented.  As  you  proceed  through  the 
JETFLAPIN  program,  opportunities  to  review  and  change  input  data  will  be  presented. 
Should  it  become  necessary  to  change  your  input  data  after  completing  the  JETFLAPIN 
program,  you  can  simply  edit  the  created  data  file  using  the  V.AX  EDT  editor. 

After  the  JETFL.APIN  input  program  has  been  run  to  completion,  the  file  will  you  cre- 
ated will  exist  on  your  directory  with  the  file  extension  .DAT.  This  file  should  be  re- 
viewed and  compared  with  the  sample  file  used  as  a  reference.  If  ever\ihing  is  in  order, 
you  should  run  your  data  file  through  the  JETFLAP  wing  analysis  program. 

The  JETFLAP  wing  analysis  program  will  ask  you  for  the  file  name  of  the  input  data 
file.  It  is  not  necessan.'  to  enter  the  file  extension  .D.AT.  but  you  may  do  so  without  any 
ill  efiects.  The  program  then  asks  if  you  wish  to  have  the  output  sent  to  the  screen  or 
to  a  file.  If  you  send  the  data  to  a  file,  the  program  runs  faster  and  you  will  have  the 
opportunity  to  review  and  print  out  the  data.  Sending  the  data  to  the  screen  is  a  quick 
way  to  see  if  the  program  is  executing  properly,  but  there  is  no  permanent  record  of  the 
run.  At  this  time,  the  program  is  not  able  to  print  to  both  the  screen  and  a  file.  The 
program  is  finished  whe  i  the  DCL  (S)  prompt  returns  to  the  screen. 

Several  sample  input  data  files,  the  results  of  those  files  after  being  run  through 
JETFLAP  and  the  listings  for  the  JETFLAP  and  JETFLAPIN  programs  are  on  the 
following  pages. 
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JETFLAP  INPUT  DATA  FILE  \  OYTEST.DAT 


THIS  IS  A  TEST  OF  THE  INPUT  PRC 

IGRAM  JT77I 

N  I 

JSING  VO 

YAC 

;er  data 

59040. 0000 

1332. 0000 

0.  0000 

13.5000 

0.  0000 

16  2  0  0  1 

1  0  0 

0.  998498 

0. 989489 

0. 959459 

0.891892 

0. 

792793 

0. 

684685 

0. 

576577   0.468468 

0.400901 

0.373874 

0.355856 

0. 346847 

0. 

324324 

0. 

261261 

0. 

162162   0.054054 

11111 
7 
0. 000000 

11111 

11111 

1 

0.074100 

0. 222200 

0.370400 

0. 

592600 

0. 

740700 

0. 

888900 

0.  998498 

13. 000000 

36.099998 

0.989489 

11.  900000 

36.400002 

0. 959459 

11.  200000 

37. 200001 

0.  891892 

10. 000000 

39.099998 

0. 792793 

8. 300000 

41.900002 

0. 684685 

6. 300000 

44. 900002 

0.576577 

4.500000 

47.900002 

0.468468 

2. 300000 

51.  000000 

0.400901 

0. 800000 

52.599998 

0. 373874 

0.400000 

53.400002 

0.355856 

0. 100000 

53. 799999 

0. 346847 

0. 000000 

54. 000000 

0. 324324 

0. 000000 

54. 000000 

0.  261261 

0. 000000 

54. 000000 

0. 162162 

0. 000000 

54. 000000 

0.  054054 
9 
0  0  0  2  0 

0. 000000 

54. 000000 

11111 

11111 

11111 

1 

-12. 355000 

9 

9 

-9. 560000 

-4. 899000 

0. 764000 

5. 

042000 

7. 

969000 

5. 

412000 
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ORIGINAL  JETFLAP  INPIT  DATA  FILE  VOYAGR.DAT  (S.  M.  WHITE) 


VOYAGER 

WING  FLAT 

PLATE  AND  CAMBERED  CASES;  16X7 

=112  ELEMENTS 

59040.  0 

1332. 0 

0.0       13.5 

1601000001010000 

. 998498 

.  989489 

.959459    .891892    .792793 

.684685    .576577 

.468468 

. 400901 

. 373874 

.355856    .346847    .324324 

.261261    .162162 

. 054054 

01010101010101010101010101010101 

07 

0.  0 

.0741 

.2222     .3704     .5926 

. 7407     . 8889 

. 998498 

13.  0 

36.  1 

. 989489 

11.9 

36.4 

.959459 

11.2 

37.2 

. 891892 

10.  0 

39.  1 

. 792793 

8.  3 

41.  9 

.684685 

6.  3 

44.  9 

.576577 

4.5 

47.  9 

.468468 

2.  3 

51.0 

.400901 

0.8 

52.  6 

.  373874 

0.4 

53.4 

. 355856 

0.  1 

53.  8 

. 346847 

0.  0 

54.  0 

. 324324 

0.  0 

54.0 

. 261261 

0.  0 

54.  0 

. 162162 

0.0 

54.  0 

. 054054 

9 

00000005 

0.  0 

54.  0 

01010101010101010101010101010101 

-12. 355 
9 

-9.560 

-4.899     0.764     5.042 

7.969     5.412 

PROGRAM  OUTPUT  DATA  FOR  VOVTEST.DAT 


EVD   JET  -  WING   COMPUTEP   PROGRAM 


VOYAGER  WING  FLAT  PLATE  AND  CAMBERED  CASES;  UX7  =  li:  ELEMENTS 


USED 

INPUT 

AREA 

z 

0, 

,i:3106 

59D'iO. 000000 

SPAN 

s 

2  . 

,000000 

1JJ2. 000000 

CREF 

= 

0, 

,069765 

0.000000 

XMC 

= 

0, 

,ocor70 

13.500000 

Ct'AC 

= 

0. 

,069765 

<i6.<i6:<;70 

ARATIO 

r 

50, 

,osir:<i 

jo.osirc; 

XCG 

= 

0, 

,000000 

0.000000 

NR0W3 

= 

16 

16 

NCASEG 

= 

1 

1 

IS  VMM 

= 

0 

0 

IPRINT 

= 

0 

0 

JETF1.C 

= 

1 

1 

IGTYPE 

= 

1 

1 

IHINGE 

= 

0 

0 

NUMBER  OF  WING  ELEMENTS  =  112 

NUMBER  OF  JET  ELEMENTS   =    0 

TOTAL  NUMBER  OF  ELEMENTS  =  IIC 


NWi.^k.iKit>»»««H^I«MI*VK»t»>M 

^'.tAKHMMMtfM 

«   ELEMENT  GEOMET 

RY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE   1   « 

m4lir.;*.kn^^.WMl.MKJ.w^K^.4 

Kf.K*NI*M*.«M* 

««•  SECTION   1  •« 

i»   V  =   0.9°8498   DELTA 

=   0.001502   XLEAD  = 

0.019520 

XTRAIL  = 

0.054204   CHORD  = 

0.034685 

TANLE  = 

0.183333 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

OOOOCO      HL  =   0.000000      THETA  S  =   0. 

000000 

XE 

0.000000    0.074100 

0.22:200    0.370400 

0  .502600 

0.  740700 

0.888900 

XI 

0.0105:0   o.o;;ooo 

0.027220    0. 032307 

0.040074 

0.045210 

0.050351 

DEL 

0.074100    0.148100 

0.1482C0    0.2222C0 

C.14S100 

0.148200 

0.111100 

EPS 

l.OCDOOO    l.COCDOO 

l.OOCOOO    1.000000 

1  .OOCOOO 

1.000000 

1. OOOOCO 

BETA 

0.000000    0.000000 

O.OOCOOC    0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

:o                 10 

10         10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

•"«  SECTION  2    " 

1"   Y  =   0.989489   DELTA 

=   0.007507   XLEAD  = 

0.017868 

XTRAIL  = 

0.054655   CHORD  = 

0.036787 

TANLE  = 

0.183333 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0. 

QOOOOC 

XE 

0.000000    0.074100 

0.222200    0.370400 

0.592600 

0.740700 

0.888900 

XI 

0.017868    0.0;05"'4 

0.026042    0.031494 

0  .  039t>68 

C. 045116 

0.0505o8 

DEL 

0.074100    0.148100 

0.148200    0.222200 

0.148100 

0.148200 

0.111100 

EPS 

1.000000   1.000000 

1.003000    l.OOCOOO 

1  .000000 

1.000000 

1 .OOOOCO 

BETA 

0.000000    0.000030 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

:o       10 

10       10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

»««  SECTION   :  «•■ 

«   Y  =   0.950459   DELTA 

=   0.022523   XLEAD  = 

0.016817 

XTRAIL  = 

0.055856   CHORD  = 

0.039039 

TANLE  = 

0.026667 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000     HL  =   0.000000     THETA  S  =   0. 

000000 

XB 

0.000000    0.074100 

0.222200    0.370400 

0.502600 

0.740700 

0.688000 

XI 

0.016817    0.019710 

0.025401    0.031277 

0.030951 

0.045733 

0.051519 

DEL 

0.074100    0.1481C0 

0.148200    0.22:200 

0.148100 

0.148200 

0.111100 

EPS 

1.000000    l.OOCOOO 

l.OOCCCO    l.OCOOOO 

1 .000000 

1.000000 

1 .000000 

BETA 

0.000000    0.000000 

0.000000    0.000000 

0.000000 

0.000000 

O.COOOOO 

TYPE 

20          10 

10          10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

»»«  SECTION   6  •• 

'•   Y  =   0.891392   DELTA 

=   0.045044   XLEAD  = 

0.015015 

XTRAIL  = 

0.058709   CHORD  = 

0.043694 

TANLE  = 

0.026212 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000     Hl  =   C. 000000     THETA  S  =   0, 

,000000 

XB 

0.000000    0.074100 

0.222200    0.370400 

0.592600 

0.740700 

O.888OOO 

XI 

0.015015    0.018C53 

0.024724    0.0311'>9 

0.04CO08 

0.047379 

0.053354 

DEL 

0.074100    0.148100 

0.148200    0.222200 

0.148100 

0.148200 

0.111100 

EPS 

l.OCOOOO    1.000000 

l.OCOOOO    l.OOOCOO 

1.000000 

1 .000000 

1 .000000 

BETA 

0.000000    0.000000 

0.000000    0.000000 

0. OOOOCO 

0.000000 

O.COOOOO 

TYPE 

20         10 

10          10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

«"«  SECTION  5  -• 

t"   Y  =   0.7927°:   DELTA 

=   0.054055   XLEAD  = 

0.012462 

XTRAIL  = 

0.062913   CHORD  = 

0.050450 

TANLE  = 

0.025758 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0. 

,000000 

X5 

0.000000    0.074100 

0.222:00    0.370400 

O.5026CO 

0.740700 

0.888=00 

XI 

0.0124o2    0.016201 

0.0:3o73    0.03114° 

0.042350 

0.04O831 

0.057308 

DEL 

CO-ulOO    0.148100 

o.i48:co   o.2:::oo 

0.1481C0 

0.148200 

0.111100 

EPS 

l.OCOOOO    1.000000 

1.000000   1.000000 

1 .000000 

1.000000 

1.000000 

BETA 

0.000000    0.000000 

0.000000   o.oocooo 

0.000000 

0.000000 

0.000000 

TYPE 

20         10 

10       10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

"•o  SECTION   6  »> 

'«   Y  =   0.684685   DELTA 

=   0.054053   XLEAD  = 

0.009459 

XTRAIL  = 

0.067417   CHORD  = 

0.057958 

TANLE  = 

0.025000 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0. 

,000000 

XB 

0.000000    0.0741CO 

0.222200    0.370400 

0.502600 

0.740700 

0.S88O00 

XI 

0.009459    0.013754 

0.022338    0.030°:7 

0.043805 

0.052389 

0.060=78 

DEL 

0.C74100    O.KSIGO 

0.148200    0.222200 

0.  14S100 

0. 14S200 

O.llUOO 

EPS 

1.000000    l.OCOOOO 

l.OOCOOO    l.OCOOOO 

1 .000000 

1 .000000 

1 .000000 

BETA 

0.000000    0.000000 

0. OOOOCO    0.000000 

0.000000 

O.COOOOO 

0. OOOOCO 

TYPE 

20          10 

10          10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

««»  SECTION   7  »• 

•■   V  =   0.576577   DELTA 

=   0.054055   XLEAD  = 

0.006757 

XTRAIL  = 

0.071922   CHORD  = 

0.065165 

TANLE  = 

0.027778 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000     HL  =   0.000000     THETA  S  =   0. 

,000000 

XB 

0.000000    0.074100 

0.222200    0.370400 

0.5°2600 

0.740700 

0.888900 

XI 

0.006757    0.011585 

0.021236    0.030394 

0.045374 

0.055025 

0.064632 

DEL 

0.074100    0.148100 

0.148200    0.222:00 

0.148100 

0.148200 

O.llUOO 

EPS 

1.000000    l.OOCOOO 

1.000000    l.OOCOOO 

1.000000 

l.OCOOOO 

1.000000 

BETA 

0.000000    0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20         10 

10         10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

»•«  SECTION  8  »««   Y  =   0.468468   DELTA 

=   0.054054   XLEAD  = 

0.003453 

XTRAIL  = 

0.076577   CHORD  = 

0.073123 

TANLE  = 

0.031944 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0. 

.000000 

XB 

0.000000    0.074100 

0.222200    0.370400 

0.592600 

0.740700 

0.338900 

XI 

0.003453    0.008872 

0.01=701    0.C30538 

0.046786 

0.057616 

0.068452 

DEL 

0.074100    0.148100 

0.143200    0.222200 

0.143100 

0.148200 

O.llllCO 

EPS 

1.000000    1.000000 

1. OOOOCO    1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000    0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20         10 

10         10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

««»  SECTION   0  ,»,   Y  =   0.100901   DELTA 

=   0.013513   XLEAD  = 

0.001201 

XTRAIL  s 

0.078979   CHORD  = 

0.077778 

TANLE  = 

0.027773 

WING  ELEMENTS 

NW  =   7      TWIST  =   0. 

000000     HL  =   C. 000000     THETA  S  =   0, 

.000000 

XB 

0.000000    0.074100 

0.222200    0.370400 

0.592600 

0.740700 

O.8880OO 

XI 

0.001201    0.006=o5 

0.018433    0.030010 

0.047292 

0.058811 

0.07C338 

DEL 

0.074100    0.148100 

0.148200    0.222200 

0.148100 

0.148200 

0.111100 

EPS 

1.000000    1.000000 

1.000000    1.000000 

1.000000 

1.000000 

1. OOOOCO 

BETA 

0.000000    0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20         10 

10         10 

10 

10 

10 
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THIS  ROW 

HAS  NO  JET 

W»f  )» 

SECTION  10  «> 

'•   Y  =   0.37:874   DELTA 

=   0.013514   XLEAD  = 

0.000601 

XTRAIL  = 

0.080180   CHORD  = 

0.079580 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

ooooco 

HL  =   0.000000      THETA  S  =   0. 

000000 

XB 

O.OIOCCO 

0.074100 

0.222200 

0.370400 

0.592600 

0.740700 

0.888900 

X! 

0.000601 

0.00=497 

0.018283 

0.030077 

0.04775? 

0.0595^5 

C. 071339 

DEL 

o.07<;ioo 

O.I4S100 

0.148200 

0.222200 

0. 1481C0 

0. 143200 

0.111100 

EPS 

1 .000000 

1 .000000 

1 .000000 

l.OOCOOO 

1.000000 

1.000000 

I.OOOOOO 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TY^E 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

HMM 

SECTION  II  «• 

'•   Y  =   0.2 

55856   DELTA 

=   0.004504   XLEAD  = 

0.000150 

XTRAIL  = 

0.080781   CHORD  = 

0.080631 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

OOOOCO 

HL  =   0.000000      THETA  S  =   0. 

000000 

XB 

0.000000 

0.074100 

o.22::oo 

0.370400 

0.592600 

0.740700 

0.888900 

XI 

0.CC0150 

0.006125 

0.01S066 

0.030016 

0.047=32 

0.05°873 

0.C71S23 

DEL 

0.074100 

0.148100 

0.148200 

0.222200 

0.148100 

C. 148200 

0.111100 

EPS 

1 .000000 

1 .000000 

1 .300000 

I. 000000 

1.000000 

1 .000000 

I.OOOOOO 

BE-A 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

:o 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NC  JET 

KHH 

SECTION  12  .. 

'»   Y  =   0.366847   DELTA 

s   0.004505   XLEAD  = 

0.000000 

XTRAIL  - 

0.081081   CHORD  « 

0.081081 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

000000 

HL  =   0.000000     THETA  S  =   0. 

000000 

XB 

0.000000 

0.074100 

0.222200 

0.370400 

0.592600 

0.740700 

0.888900 

XI 

0.000000 

0.006008 

0.018016 

0.03CC32 

0.048049 

0 .000057 

0.0720T3 

DEL 

0.074100 

0. 148100 

0. 148200 

0.222200 

0.148100 

0.148200 

0.111100 

EPS 

1.030000 

1.000000 

l.OOOOOC 

1.000000 

1.000000 

1.000000 

l.OOCOOO 

BETA 

0.000000 

0.000000 

0.000000 

C. 000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

MKM 

SECTION  i:  »•«  V  =  0.2 

;24324   DELTA 

=   0.018018   XLEAD  = 

0.000000 

XTRAIL  = 

0.081081   CHORD  = 

0.081081 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

OOOOCO 

HL  =   0.000009      THETA  S  =   0. 

ooocoo 

XB 

0.000000 

0.074100 

0.222200 

0.370400 

0.592600 

0.740700 

0.888900 

XI 

0.000000 

0.006008 

0.018016 

0.030032 

0.048049 

0.0=0057 

0.072073 

DEL 

0.074100 

0.148100 

0.148200 

0.222200 

0.148100 

0.148200 

0.111100 

EPS 

I .000000 

1 .000000 

I. 000000 

I.OOOOOO 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

■  MX 

SECTION  IC    «. 

•«■   Y  =   0.2 

:61261   DELTA 

«   0.045045   XLEAD  • 

0.000000 

XTRAIL  = 

0.081081   CHORD  » 

0.081081 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

000000 

HL  =   0.000000      THETA  S  =   0. 

,000C00 

XB 

0.000000 

0.074100 

0.222200 

0.370400 

0.5°2600 

0.740700 

0.888900 

XI 

c.ooooco 

0.0060C8 

0.018016 

0.03CC32 

0.048C49 

0.060057 

0.or2C73 

DEL 

0.074100 

0.148100 

0.1432C0 

0.222200 

0.148100 

0.148200 

O.lIllCO 

EPS 

1.000000 

1 . 000000 

1 .000000 

1.000030 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TVFE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

nmn 

SECTION  15  «' 

••   Y  =   0.I6216C   DELTA 

=   0.054054   XLEAD  = 

0.000000 

XTRAIL  = 

0.081081   CHORD  = 

0.081081 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

000000 

HL  =   0.000000      THETA  S  =   0, 

.OOOOCO 

XB 

0.000000 

0.074100 

0.222200 

0.370400 

0.5O2600 

0.740700 

0.888900 

XI 

0.000000 

O.OObOCS 

0.018016 

0.03C032 

0.048C49 

0.060057 

0.072073 

DEL 

0.074100 

0. 148100 

0.148200 

0.222200 

0.148100 

0.148200 

0.111100 

EPS 

1.000000 

l.OCOOOO 

1.000000 

1.000000 

1.000000 

1.000000 

I.OOOOOO 

BETA 

C. 000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

*** 

SECTION  U  «• 

1"   Y  =   0.054054   DELTA 

=   0.054054   XLEAD  = 

0.000000 

XTRAIL  = 

0.081061   CHORD  = 

0.081081 

WING 

ELEMENTS 

NW  =   7 

TWIST  =   0. 

000000 

HL  =   0.000000      THETA  S  =   0. 

.OOOOCO 

XB 

0.000000 

0.074100 

0.222200 

0.370400 

0.592600 

0.740700 

0.888000 

XI 

0.000000 

0.006C0S 

0.018016 

0.030032 

0.048049 

0.060057 

0.072073 

DEL 

0.074100 

0.148100 

0.148200 

0.222200 

C.148!C0 

0.148200 

O.lllIOO 

E^-S 

1 .000000 

l.OCOOOO 

I.OOOCOO 

l.OOCOOO 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

O.OOOOOC 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

TANLE  =   0.023611 


TANLE  =   0.025000 


TANLE  =   0.000000 


TANLE  =   0.000000 


TANLE  =   0.000000 


TANLE  =   0.000000 


SECTIONAL  JET  BLOWING  COEFFICIENTS 


ROM 

CKU 

1 

0. 

.000000 

0. 

.000000 

3 

0, 

.000000 

4 

0, 

.000000 

5 

0 

.000000 

6 

0 

.000000 

7 

0 

.000000 

8 

0 

.000000 

Q 

0 

.000000 

10 

0 

.000000 

11 

0 

.000000 

12 

0 

.000000 

13 

0 

.000000 

14 

0 

.000000 

15 

0 

.000030 

16 

0 

.000000 

HHMN)«H>iH)«MNH)(HHNN»i»iNHNM<«V4M«fft»tMMIIMMMMNMHKMHKl«HMNN 

"   CHORDWISE  LOADrNG  FOR  ALL  FUNDAMENTAL  CASES  * 


nm¥irm-f>o'**¥*<tm¥r<»^^* 

tKMM*..«^^«'•<«i 

SECTION   1      Y  = 

0.9084=8 

CHORD  =   0.034685 

I 

XB 

CASE  1 

CASE  2     CASE  3 

CASE  4 

CASE  5      CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

1 

0. 

.000000 

0.206017 

0.000000    0.000000 

0. OOOOCO 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

0. OOOOCO 

«. 

0, 

.074100 

0.082606 

0.000000    0.000000 

0.000000 

0.000000    0.000000 

0.030000 

0.000000 

0.000000 

0. OOOOCO 

3 

0, 

.222200 

0.035349 

0.000000   0. ooocoo 

0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

4 

0, 

.370400 

0.025035 

0.000000   0.000000 

0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

5 

0, 

.592600 

0.015409 

0.000000    0.000000 

0.000000 

0.000000    0.000000 

0.000000 

0.000000 

O.OCOOOO 

o.ooocco 

6 

0. 

.740700 

0.011045 

0.000000    0.000000 

0.000000 

0.000000    0.000000 

0.000000 

0.000030 

0.00C003 

o.ooocco 

7 

0, 

.888900 

0.006752 

0.000000    0.000000 

0.000000 

0.000000    0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

.014820 

0.296U3 

0 

.029640 

0.195265 

3 

0 

.044460 

0.144467 

4 

0 

.054280 

0.10«765 

s 

0, 

.074100 

0.082o06 

•   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL  CASES   • 

.  MM  A  Hf>HkMl«MN)«N  »»*«>*)•  N 

SECTION   2      Y  = 

0.989489 

CHORD  =   0.036787 

I 

XB 

CASE  1 

CASE  2     CASE  3 

CASE  4 

CASE  5      CASE  6 

CASE  7 

CASE  8 

CASE  « 

CASE  10 

8 
9 
10 
11 
12 
13 
14 


000000 
074100 
222200 
370400 
592600 
740700 


0.257194 
0.150969 
0.074147 
0.049467 
0.029455 
0.020600 
0.011980 


0.000000 
0.000000 
0.000000 

0.000000 
0.000000 

0.000000 
0.000000 


0.000000 
0.000000 

o.ooocco 
o.oococo 

0.000300 
0.000000 

.00000c 


0.000000 
0.000000 
0.000000 
0.000000 
0. OOOOCO 
O.OOOOOC 
0.000000 


0.000000 
0.000000 
0. OOOOCO 
0.000000 
0.000000 
0.000300 

o.cocooo 


DETAILED  LEADING  EDGE  LOADING 


0.000000 
0.000000 
0.000000 
0.000000 
0.000000 
0.000000 
0.000000 


0.000000 
0.000000 
0.000000 
O.OOOOOC 
0.000000 
0.000030 
0.000000 


0.000000 
0.000000 
0.003000 
0.000000 
0.000000 
0.000000 
0.000000 


000000 
000000 

000000 

000000 
000000 

ooocoo 

000000 


0.000000 
0.000000 
0.000000 
0.000000 

o.occooo 

o.oocooo 

0.000000 
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MING 


1  O.OKSCO  0.370:02 

2  o.o:ob60  o.Cb:°j8 

3  O.Oi'i'iDO  O.COOOcl 

c  0.050C80  o.irSiOo 

5  0.074100  0.15096? 

»      CHORDWICE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   « 

SECTION   3  Y  =   0.9£9';59      CHORD  =   0.C39039 

I  XB  CASE  1      CASE  2      CAGE  5      CASE  "i      CASE  5      CASE  b      CASE  7      CASE  8      CASE  9      CASE  10 

15  O.OCOOOO  0. 320581    O.OCOOOO    0.000000    0.000000    0.000000    0.000000    D. 000000    0.000000    0.000000    o.ooocoo 

16  0.074100  0.195136    O.OCOOOO    0. 000000    O.OOOOCO    0.000000    0.000000    0.000000    0.000000    0.000000    o.ooooco 

17  0.222200  0.102889    O.OCOOOO    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    O.OOCOOO    0.000000 

18  0.370400  0.0722o5   O.OCOOOO   O.OCOOOO   0.000000   o.oooooo   0.000000   O.OOOOCO   0.000000   O.OOCOOO   o.ooooco 

19  0.592600  0.044=37    C.OOOOOO    O.OOOCOO    0.000000    O.COOOOO    0.000000    O.OOOOOO    O.OOCOOO    0.000000    O.OOCOOO 

20  0.740700  0.031o47    0.000000    O.OCOOOO    0.000000    0.000000    C.OOOOOO    O.COOOOO    O.OCOOOO    0.000000    0.000000 

21  0.888°00  0.018411    o.oooooo    O.OOOOCO    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820  0.474177 

2  0.029b40  0.330488 
J  0.0444oO  0.264761 

4  0.059280  0.224079 


0. 195136 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION  4      Y  =  0.8°18<'2  CHORD  =   0.043694 

I     XB        CASE  1     CASE  2     CASE  3  CASE  4  CASE  5  CASE  6     CASE  7     CASE  8     CASE  9     CASE  10 

22  0.000000    0.351175    0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

23  0.074100    0.215023    0.000000  O.OOOOOO  0.000000  0.000000    0.000000    0.000000    0.000000    o.oooooo    O.OCOOOO 

24  0.222200    0.114796    0.000000  O.COOOOO  O.OOCOOO  O.OCOOOO    0.000000    0.000000    0.000000    0.000000    0.000000 

25  0.370400   0.C81531   O.COOOOO  O.OOCOOO  0.000000  O.COOOOO   0.000000   0.000000   0.000000   0.000000   o.ooocoo 

26  0.592b00    0.051545    0.000000  O.OCOOOO  C.OOOOOO  0.000000    0.000000    0.000000    0.000000    O.OOOCOO    0.000000 

27  0.740700    0.0:b574    O.OOCOOO  C.OOOCOO  0.000000  0.000000    0.000000    O.OOOOOO    0.000000    0.000000    0.000000 

28  0.8839C0    0.021471    0.000000  0.000000  0.000000  O.OCOOOO    0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820    0.519b82 

2  0.02»b40    0.3b:533 

3  0.0444b';    0.29C:87 

4  0.05=280    0.24b475 

5  0.074100         0.215023 

«   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 


SECTION  5      Y  =  0.792793  CHORD  =   0.050450 

I     XB        CASE  1     CASE  2  CASE  3  CASE  4  CASE  5     CASE  6     CASE  7     CASE  8     CASE  9     CASE  10 

29    O.COOOOO    0.35=757    0.000000  O.OOOOCO  0.000000  0.000000    0.000000    0.000000    0.000000    O.OOOOOO    0.000000 

50    0.074100    0.22048D    O.OOCOOO  O.OOCOOO  0.000000  O.OOOOCO    O.OOCOOO    0.000000    0.000000    O.OOCOOO    0.000000 

31  0.222200    0.1178=8    O.OCOOOO  O.OOCOOO  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    O.COOOOO 

32  0.370400    0.0S3SS7    0.000000  0.000000  0.000000  0.000000    O.OOOOCO    O.OOCOOO    0.000000    O.OOOCOO    O.OOOCOO 

33  0.5=2600    0.053168    O.OCOOOO  O.OOCOOO  O.OOOOOO  0.000000    0.000000    0.000000    0.000000    C.OOOOOO    O.OOOOOO 

34  0.7407C0    0.037785    0.000000  O.OOOCUO  O.OCOOOO  0.000000    0.000000    0.000000    0.000000    o.ooocoo    0.000000 

35  0.888900    0.022221    0.000000  0.000000  C.OOOOOO  0.000000    0.000000    0.000000    0.000000    O.OOCOOO    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820    0.532423 

2  0.02=540    0.371476 

3  0.0444b0    0.2=8018 

4  0.05=280    0.2526b5 

5  0.074100    0.220486 

"   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   « 

SECTION  6      Y  =  0.b84b85  CHCRD  =   0.057=58 

I     XB        CASE  1     CASE  2  CASE  3  CASE  4  CASE  5     CASE  6     CASE  7     CASE  8     CASE  9     CASE  10 

36  0.000000    0.36C147    0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    O.OOCOOO    0.000000 

37  0.074100    0.220753    0.000000  O.OCOOOO  O.OOCOOO  0.000000    0.000000    O.OOCOOO    0.000000    o.ooocoo    O.OCOOOO 

38  0.222200    0.1I8C77    O.OOCOOO  O.OOOOCO  0.000000  0.000000    0.000000    0.000000    0.000000    O.COOOOO    O.OCOOOO 

39  0.370400    0.08'.037    O.COOOOO  O.OOCOOO  0.000300  O.OOOOCO    0.000000    0.000000    0.000000    0.000000    O.OOOOOC 

40  0.5=2b00    0.0532C0    O.OCOOOO  O.OOGCCO  O.OOOCOO  O.OOOOCO    0.000000    O.OCOOOO    0.000000    0.000000    O.OOOOCO 

41  0.740700    0.037=52    O.OOCOOO  0.000000  0.000000  0.000000    0.000000    O.OOOOCO    0.000000    O.OOOOCO    O.OOCOOO 
«2    0.888=00    0.022260    0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820    0.533005 

2  0.02  =  640    C. 37183  = 

3  0.044460    0.2=8358 

4  0.05=280    0.252=bl 

5  0.074100    0.220753 


»   CHORDWISE  LOADIK 

IS  FOR  ALL 

FUNDAMENTAL 

CASES   •• 

Mf«)<wwwi.|>i 

SECTION 

7      Y  = 

0.576577 

CHORD  = 

0.065165 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  « 

CASE  10 

43 

0- 

.000000 

0.35=147 

0 

.000000 

0.000000 

0.000000 

O.COOOOO 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

c 

.000000 

44 

0, 

.074100 

0.220135 

0 

.000000 

O.OOCOOO 

0.000003 

0. 000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

c 

.OOOCOO 

45 

0, 

.222200 

0.117705 

0 

.ooooao 

o.oococo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.OOOCOO 

0 

.000000 

0 

.OOOCOO 

46 

0, 

.370400 

C.CS37bl 

0 

.000000 

O.OOOCOO 

O.OOCOOO 

o.ooocoo 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

47 

0 

.5=2600 

0. 053107 

0 

.000000 

O.CCOCOC 

0.000000 

c.cooooo 

0.000000 

0 

.000000 

0 

.000000 

c 

.000000 

0 

.000000 

48 

0 

.740700 

0.037733 

0 

.000000 

O.COOOOO 

O.COOOOO 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

49 

0- 

.8889C0 

0.022192 

0 

.000000 

O.OOOOCO 

C.OOOOOO 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0, 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

.014820 

0.531524 

fc 

0, 

.029640 

0.370355 

3 

0, 

.044460 

0.2975;b 

4 

0, 

.059280 

0.252255 

5 

0, 

.074100 

0.220135 

«   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES   « 

l|MkMi«*«>4f. 

^kif.l.KMM''.*^* 
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SECTION 

8      Y  = 

0.468468 

CHORD  = 

0.073123 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

50 

0, 

.000000 

0.353019 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

. oococo 

51 

0. 

.074100 

0.21b279 

0 

.OOOCOO 

0.000000 

0. OOOCOO 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

52 

0, 

.222200 

0.115580 

0 

.000000 

0.000000 

0.000000 

O.OOCOOO 

0.000000 

0 

.000000 

0 

.000000 

0 

.occooo 

0 

.000000 

53 

0. 

.370400 

0.082200 

0 

.OOOCOO 

0.000000 

0.000000 

O.OOCOOO 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.OOOCOO 

54 

0 

.5=2600 

0.052032 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.occcoo 

55 

0 

.740700 

0.036=78 

0 

.000000 

0.000000 

0.000000 

O.ooocoo 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.OOOCOO 

56 

0 

.888900 

0.021711 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0 

.014820 

0.522436 

2 

0 

.02=640 

0.364487 

3 

0 

.044460 

0.2923=0 

4 

0 

.05=280 

0.247871 

5 

0 

.074100 

0.2162  78 

91 


«   CHCRDUIGE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 

SECTION  9      Y  »  0.6009C1  CHO^D  -  0.077778 

I     XE        CASE  1     CASE  ;     CASE  3  CASE  <i  CASE  5  CASE  6  CASE  7     CASE  8     CASE  9     CASE  10 

57  0.000000      o.3<;::<;3      0.0000:0  o.oocooo  o.ocooco  0.000000  o.ooocoo      0.000000      0.000000      0.000000      o.oocooc 

58  o.o7';!co      o.cioBOb      o.ooojco  0.000000  o.ocoooa  o.ooocoo  o.oooooo      0.000000      0.000000      0.000000      o.ocooco 
5?      o.c:2:oo      o.iiins      o.cococo  o.oocooo  o.ooooco  o.oooooo  o.ocoooo      o.oocooo      o.oooooo      o.ocoooo      o.oooooo 

bO    0.370-00    0.080°C3    O.COGOOO  0.000000  C.CC0300  0.000000  0.000000    0.000000    O.OOOOCO    O.COOOOO    O.OOOCOO 

61  0.59:000   0. 051287   O.OOOCOO  O.OOOCOO  O.OOCOOO  O.OOOOCO  O.COOOOO   0.000000   0.000000   0.000000   O.ooocoo 

62  0.7^0700    0.036404    O.OCOOOO  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    O.OOOOCO    0.000000 

63  0.888900    0.021314    0.000000  O.OCOOOO  0.000000  0.000000  C. 000000   0.000000    0.000000    0.000000   0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820    0.508011 

2  0.02=540    0.364480 

3  0.044460    0.284422 

4  0.05°280  0.241180 


0.074100    0.210506 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION  10     Y  =  0.373S74  CHORD  =   0.079580 

I  XB         CASE  1  CASE  2  CASE  3  CASE  4  CASE  5  CASE  6      CASE  7      CASE  8      CASE  9      CASE  10 

64  0.000000  0.345166  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

65  0.074100  0. 211234  O.OCOOCO  0.000000  0.000000  0.000000    0.000000    0.000000    O.OOOOOO    0.000000    0.000000 

66  0.222200  0.112873  O.OOCOOO  0.000000  0.000000  O.OCOOOO    0.000000    0.000000    O.OOOCOO    0.000000    0.000000 

67  0.370400  0.080337  O.OOCOOO  0.000000  0.000000  0.000000    0.000000    O.OCOOOO    0.000000    0.000000    0.000000 

68  0.5''2600  0.050S69  0.000000  0.000000  O.OCOOOO  O.OOOOCO    0.000300    0.000000    0.000000    0.000000    0.000000 

69  0.740700  0.036120  O.OOOOCO  0.000000  O.OOOOCO  O.OOOCOO    C. 000000    0.000000    0.000000    0.000000    0.000000 

70  0.888''00  0.021182  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820  0.510777 

2  0.029640  0.356305 

3  0.0444c0  0.285775 

4  0.C59280  0.242210 


0.074100    0.211284 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION  11      Y  =  0.355856  CHORD  =   0.080631 

I  XB  CASE  1     CASE  2  CASE  3  CASE  4  CASE  5  CASE  6     CASE  7     CASE  8     CASE  9     CASE  10 

71  O.OOCOOO  0.3417O0  0.000000  0.030000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

72  0.0741CO  0.210332  O.OOCOOO  0.000000  0.000000  O.OOCOOO    O.COOOOO    O.OCOOOO    0.000000    C.OOCOOO    O.OOOOCO 

73  0.222200  0.11327o  O.OOCOOO  O.OOCOOO  O.OCOOOO  O.OOOCOO    0.000000    O.OCCCOO    O.OOCOOO    O.OCOOOO    0.000000 

74  0. 370400  0.080521  0.000000  0.000000  0.000000  O.OOOCOO    0.000000    0.000000    O.COOOOO    O.OOOOCO    0.000000 

75  0.5O2O03  0.C5C893  O.OCOOOO  0.000000  0.000000  O.OOOOOO    0.000000    0.000000    0.000000    O.OCOOOO    O.OOOCOO 

76  0.740700  0.036075  0.000000  O.OOOOOO  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

77  0.883900  0.021087  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.014820  0.506105 

2  0.02»o-.0  0.353467 

3  0.0444oO  0.283=49 

4  0.05=280  0.241133 


0.074100    0.210832 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION 

12      Y  = 

0.346847 

CHORD  = 

0.031081 

I 

XE 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

78 

0. 

000000 

0.34300= 

0.000000 

o.ooocoo 

O.OOOOCO 

0.000000 

0.000000 

0, 

.000000 

0, 

,000000 

0, 

,000000 

0, 

.000000 

79 

0. 

074100 

0.21115= 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0. 

.000000 

0. 

,000000 

0, 

,000000 

0 

.ocoooo 

80 

0. 

222200 

0.113382 

0.000000 

0.000000 

O.oocooo 

0.000000 

0.000000 

0, 

.000000 

0, 

,000000 

0, 

,000000 

0 

.030COO 

81 

0. 

iro'.oo 

0.030637 

0.000000 

0.000000 

O.COOOOO 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0, 

,000000 

0 

.000000 

82 

c. 

5=2600 

0.050=3= 

0.000000 

0.000300 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0, 

.000000 

0 

.oocooo 

83 

0. 

,74C-C0 

0.03d122 

0.000000 

o.ooocoo 

0.000000 

O.OOOCOO 

0.000000 

0 

.oococo 

0, 

.000000 

0, 

.000000 

0 

.ococo: 

84 

0. 

,888  =  00 

0.021080 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

,014820 

0.507824 

0. 

,02=640 

0.354557 

3 

0. 

,044460 

0.284706 

4 

0. 

,059280 

0.241c53 

5 

0. 

,074100 

0.21115= 

NMNMWXMX 

|^t^n^tHti^^M^l^K^'^^n^^t^^^^*np 

•   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES   « 

ltfiti^i,ltti- 

N»..4^4n^KnMN)>^>it*>>N«> 

SECTION 

13       Y  = 

0. 324324 

CHORD  = 

0.081081 

I 

X3 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  t> 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

85 

0. 

,000000 

0.347787 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

86 

0, 

,074100 

0.213037 

0.000000 

0.000000 

O.OOOCOO 

0.000000 

0.000000 

0 

.ocoooo 

0, 

.000000 

0 

.000000 

0 

.000000 

87 

0. 

,222200 

0.113863 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.occcoo 

0 

.000000 

0 

.ooocco 

0 

.OOOOCO 

88 

0. 

,370400 

0.080982 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

89 

0, 

,5=2600 

0.051286 

o.oocooo 

0.000000 

0.000000 

0.000000 

o.ooocoo 

0 

.000000 

0, 

.000000 

0, 

.ooooco 

0 

.OCCCOD 

90 

0. 

,740700 

0.03t423 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0, 

.000000 

0 

.000000 

91 

0, 

,838?C0 

0.021383 

0.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0, 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0, 

,014820 

0.514685 

2 

0. 

.C2=c40 

0.35=071 

3 

0, 

,044460 

0.288034 

4 

0, 

.059280 

0.24411,8 

5 

0, 

.074100 

0.213037 

«   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES   « 

. 

IIWMBNKKt- 

IMMKMHVftMIIMMI 

IMHMMfWDI* 

SECTION 

14      Y  = 

0.261261 

CHORD  = 

0.081081 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

92 

0 

.000000 

0.352101 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

93 

0 

.074100 

0.215751 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

94 

0 

.222200 

0.115339 

0.000000 

o.ooocoo 

0.000000 

o.ocoooo 

o.ooocoo 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

95 

0 

.370400 

0.082035 

0.000000 

o.oocooo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

9o 

0 

.592600 

0.051=54 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.ooooco 

97 

0 

.740700 

0.036=62 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

98 

0 

.888900 

0.021724 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0 

.014820 

0.521084 

0 
^ 

0 

.029640 

0.363553 

3 

0 

.0444bO 

0.291650 

4 

0 

.059280 

0.247254 

5 

0 

.074100 

0.215751 

"   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 
SECTION  15     Y  =   0.162162     CHORD  =   0.081081 


92 


: 

XE 

CASE  1 

CASE  2 

CASE  3 

CASE  <; 

CASE  5 

CASE  i 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

QO 

n 

.ocoooo 

0 

.3550<;5 

0 

.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.oocooo 

100 

n 

.076100 

n 

.:i  76:<i 

n 

.000000 

0.000000 

0. ocoooo 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

u 

.oocooo 

101 

n 

■crccoc 

n 

.ni>:96 

D 

.000000 

o.oooooo 

0.000000 

0.000000 

0 

.000000 

0 

.ocoooo 

0. 

.oococo 

0 

.ocoooo 

0 

.ocoooo 

102 

n 

.3;o600 

n 

.08:34: 

n 

.000000 

0.000000 

0.000000 

0.000000 

c 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

103 

n 

.E9:c00 

n 

.C5C<i°5 

0 

.000000 

0.000000 

0.000000 

0.000000 

0 

.oocooo 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.ocoooo 

10« 

n 

.  7<;o;oo 

n 

. 037337 

0 

.000000 

0.000000 

0.000000 

0. 000000 

0 

.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

lOS 

n 

.883900 

n 

.o:i9eo 

0 

.000000 

0.000000 

o.oooooo 

0.000000 

0 

.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

.0K8:0 

0 

.5:E';5<. 

0, 

.OC'I'o'iO 

0 

. SbboCO 

s 

0. 

.o<;6<;60 

0 

.:9<;i3o 

4 

0, 

.05°:80 

0 

.:<;o376 

5 

0, 

.OT'ilOO 

0 

.217624 

I 

106 
107 
108 
109 
110 
111 
112 


SECTION 
1 


« 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


XB 

000000 

074100 
222200 
370400 
502600 
740700 
888900 


1  0.014820 

2  0.029640 
I  0.044460 
*  0.059280 
5  0.076100 


CASE  1 

0.356321 
0.218427 
0. Ilo840 
0.083175 
0.052723 
0.0374OO 
0.022060 

0.527346 
0.367«46 
0.295200 
0.250239 
0.218427 


SECTION  16 
CASE  2      CASE 


0.054054 
CASE  4 


000000 

ocoooo 
ocoooo 
oocooo 
ocoooo 
ocoooo 

000000 


0.000000 
0.000000 

o.oooooo 

0.000000 
0.000000 
0.000000 

o.ooccoo 


000000 

oocooo 
ooocoo 
oocooo 

000000 

ocoooo 

000000 


CHORD  = 
CASE  5 

0.000000 

o.ooooco 
o.oooooo 

0.000000 

o.ooooco 

0.000000 
0.000000 


DETAILED  LEADING  EDGE  LOADING 


0. 08 1081 
CASE  6 

0.000000 

o.oooooo 

0.000000 
0.000000 
0.000000 
0.000000 
0.000000 


oocooo 

oocooo 
oocooo 

000000 

000000 

ocoooo 
ocoooo 


CASE  8 

o.oooooo 

0.000000 
0.000000 
0.000000 

o.ooooco 

0.000000 
0.000000 


CASE  9 

0.000000 

0.000000 
0.000000 

o.oooooo 
o.ooccoo 
o.ooccoo 

0.000000 


CASE  10 

0.000000 
0.000000 
0.000000 

o.ooccoo 
0. ocoooo 
o.ooooco 

0.000000 


SPANWISE  LOADING  FOR  FUNDAMENTAL  CASE   1 


V 

.<">8498 
.98<'489 
,95=459 
.S91S92 
,  7<'27'^3 
,684685 
,576577 
,46S4o8 
,4CC»01 
,373374 
,355856 
,34cS47 
,324324 
,2cl2ol 
162102 
054054 


CLG 

.039 

.0o6 

.OS" 

.095 

.  102 

.  102 

.  102 

,  100 

0.098 

0.C9S 

CO"? 

0.098 
0.  100 
0.101 
C.lOi 


LIFT 
CLMU 

00 

000 

COO 

000 

000 

coo 
coo 
coo 
00 

000 
000 
000 
000 
000 
000 
000 


000 
000 
000 
000 
003 
000 

ceo 
occ 

coo 

000 
000 
000 
000 
000 
000 
000 


CL 

.039682 

.066037 

.089456 

.0°97t.3 

.102479 

.  102628 

.  102320 

.100461 

.098249 

.098  166 

.0»794o 

.098124 

.0=8070 

. 100253 

.101171 

. 101562 


CDG 

0.0006926 
0.0011526 
0.0015613 
0.0017412 
0.00178S6 
0.0017912 
0.0017858 
0.0017534 
0.0017148 
0.0017133 
0.0017095 
0.0017126 
0.0017274 
0.0017497 
0.OC17668 
0.0017726 


CDMU 
.0000000 
.0000000 
.0000000 

.ocoooco 

.0000000 

.ocoooco 

.0000000 
.0000000 

o.ocooooc 
0.0000000 
o.ooccooo 
o.ooccooo 
o.oocoooo 
o.ocooooc 
0.0000000 
o.oocoooo 


cs 

0.00 


I 

05489 
08555 
13291 
15949 
16738 
16775 
16682 
16117 
15237 
15408 
15108 
15216 
15643 
16034 
16303 
16420 


NDUCED 
CD 


DRAG 

01637 
02971 

01463 
on  48 
C1137 
01177 
01416 
01911 
01725 
01986 
01910 
01631 
01466 
01355 
01306 


CMU 

0.0000000 

0.0000000 

0.0000000 

.0000000 

.0000000 

.oooccco 
.cooococ 
.ocoooco 
.ocoooco 

.0000000 
.0000000 
.0000000 
.0000000 
.0000000 
.0000000 

.ooooooc 


GAMMA 
0.0006882 
0.0012146 
0.0017461 
0.0021795 
0025851 
0029741 


o.c 
o.c 


3C 

0033208 
00390dO 
0039687 
0039780 
0060123 
0060663 
0041015 


ALFIN 
0.0572168 
0265106 

,0050317 
,0019683 
,00106'-3 
OCl 1086 
0013367 
,0017259 
,0015511 
,002078: 
,0019957 
,0026141 
,0023516 
,0020319 
,0017824 
,0016c99 


TOTAL 


SECTION 
1 

3 
6 
5 

6 
7 
8 

9 

10 
11 
12 
13 
16 
15 
16 


0.  9°! 
0.9S 
0.95 
0.89 
0.70 
0.68 
0.57 
0.46 
0.6C 
0.37 
0.35 
0.34 
0.32 
C.2d 
0.16 
0.05 


0.1CC170   0.000000   0 
PITCH 

CMMU 
0.0000 

o.ooco 
0.0000 

0.0000 


,c85 
:577 
l6cS 
lOQl 
;874 
.856 
.847 
.324 
2el 

:i62 

.054 


53 
6751 
1697 
4606 
516- 
518'. 
5106 
6620 
6I0O 
6053 
6058 
6084 
42Er 
-586 


oecc 

COCO 
0000 
0000 
0000 

ccoc 

0000 

00:0 

0003 

coo 
coco 


100170   « 
ING  MOMENT  . , 

GMT 

00   C. OCOOOO 
00   C. OOCOOO 

CO  o.ooooco 

CO   0.000000 

00  0. ocoooo 
00  o.oooooo 

00   0.000000 

CO  0. oocooo 

00   0.000000 

00  o.coocco 
00  o.ooooco 

0.000000 
00  0.000000 
00  0.000000 
00  0.000000 
00   0.000000 


0.0017683   0.0000000 


CM 
-0.007753 
-0.016751 
-C. 021497 
-0.024406 
-0.025160 
-0.C251S5 
-0.025104 
-0.026620 
-0.0261O0 
-C.026CE3 
-0.026058 
-0.026CS6 
-0.026256 
-0.024586 
-0.026627 
-0.026930 


0.0016073   0.0001610 

LIFT  CENTER 


O.OOCCOOO 


0.000096 


XCP/C 
0.  195380 
0.223377 
0.26CJI1 
0.244661 
0.265317 
0.265399 
0.265350 
0.245070 
0.24b213 
0.265026 
0.265625 
0.265666 
0 .245084 
0.245225 
0.245399 
0.245466 


XCL/C 
0.1O5380 
0.223377 
0.260311 
0.266661 
0.265317 
0.265399 
:45350 
.245070 
:46213 
:45026 
245625 
165666 
:65086 
:65225 
:653o9 
:65464 


-0.0311t 
-0.0020c 


O.OOCCOO 
0.000000 


o.ooccoo  -0.031169 
O.COOOOO  -0.0020c5 


(APEX) 
CXMC) 


0.311161 
0.021708 


0.311161  (X/CREF) 
0.021708  (X/B/2) 


TOTAL  AERODYNAMIC  COEFFICIENTS 


CCLG 

CCLJ 

"    CCL 

CCDG 

CCDJ 

CCS 

CCD 

>■  CDITZ 

"    CCJ 

CCMG 

CCMJ 

CCMT 

CCM 

CXCP 

CXCL 

CXCPB 

CXCLB 

CCMGMC 

CCMJMC 

CCMTMC 

«  CCMMC 

CLLG 

CLLJ 

CLL 

CNJ 

CNIMC 

CCV 

CBGR 

CEGL 

CBJR 

CBJL 

CBR 

CBL 

CPMSR 

CPMBL 


CAGE  1 
10C169O 
COOCCOO 
ICOlooo 

0C17483 

OCOOOCO 

C  C  1 1 C  7  3 

0001410 

CCC0962 

0003000 

-0.031I69C 

O.OOCOOOO 

0. OOOOOOC 

-0.03116=0 

0.3111612 

0.31Iltl2 

0.0217081 

0.0217081 

-0.0C2C645 

O.OOCOOOO 

O.OOCCOOO 

-0.002CO45 

0. COOCCOO 

O.OOOOCOO 

0.0000300 

0. COOCCOO 

0.0000000 

0.0000000 

0435=56 

0435=56 

ooccocc 
ooooooc 

0635=54 

0635956 

6352163 

52163 


CAGE  2 
COOCCOO 
OCOOOCO 
0000000 
0000030 
OCCGOOO 
OOOOCOO 
OCOOOCO 
OCCCOOO 
OOOOOOC 
0000000 
OCCCOOO 

o.ooccooo 

O.OOOOCOO 
0000000 
OOOOCOO 
0000000 
OCOOOCO 

ocoooco 
ocoooco 

OCCCOOO 

ocoooco 
ooccocc 
ooooooc 
ooooooc 
ooooooc 

COOCCOO 
0.0000000 
0.0000000 

0. ocoooco 
o.oocoooo 
o.oocoooo 
0. ooccocc 

0.0000000 
0. OOOOCOO 
0.0000000 


CAGE  3 

OCCCOOO 

ocoooco 
oocoooo 
ocoooco 

OCCCOOO 

ooocc.;o 

OOOOCOO 
OCOOOCO 
OOOOCOO 
OOCOOOO 
OOOOCOO 

ooococo 
coocooo 

OOOOCOO 

ocoooco 

OOOOCOO 

ocoooco 
ocoooco 
0. ooccocc 
0. ooccocc 
0. ooccocc 
o.ooccooo 

0. OOOOCOO 

0.0000000 

OOOOCOO 

ooooooc 

OOOOCOO 
0000000 

oocoooo 
ooooooc 
ooooooc 

COOCCOO 
OOOOCOO 

ccoocco 

OOCOOOO 


CASE  6 
O.OOOOCOO 

O.OOOOCOO 

O.OOOOCOO 

O.OOOOCOO 

0.0000000 

O.OOOOCOO 

0.0000000 

OCOOOCO 

0000030 

OOOOCOO 

ooooooc 

OOOOCOO 

ocoooco 

OOCOOOO 
OCCCOOO 

ocoooco 

OOOOCOO 
OOCOOOO 
OOCOOOO 
OOOOCOO 

OOOOCOO 

OCOOOCO 
OOOOCOO 
OOOCOCO 
OOOOOOC 

OOOOCOO 

0.0030000 

o.oocoooo 

O.OOOOCOO 


OOOOCOO 
OCOOOCO 
OOOOCOO 
OOCOOOO 
OOCOOOO 
OOOOCOO 


CASE  5 
O.OOCOOOO 

o.oocoooo 

0. OCCCOOO 

o.ooccooo 

O.OOCCOOO 
0.0000000 
O.OOOOCOO 

O.OOOOCOO 

O.ooccooo 

0. OOOOCOO 

O.OOOOCOO 

O.OOOOCOO 

O.OOOOCOO 

0.0000000 

0.0000000 

0.0000000 

0.0000000 

.0000000 

.0000000 

.0000000 

.ooooooc 

.0000000 
.0000000 
.OOCOOOO 
.OOCOOOO 

.OOCOOOO 

.OOOOCOO 

.OCOOOCO 

.0000000 

0.0000000 

o.ooccooo 

C. OOOOCOO 

0.0000000 

0.0000000 
0.0000000 


CASE  6 

o.oocoooo 

OOOOCOO 
OOOOOCC 
OCCCOOO 

ocoooco 
OOCCOCC 


0. ooooooc 


.OCCCOOO 

.ooccocc 

.0000000 
0.0000000 

o.oocoooo 
o.oocoooo 

0.0000000 
0.0000000 
0.0000000 
0.0000000 
O.OOOOCOO 

o.ooccooo 

0.0000000 
O.OOOOCOO 

0. ocoooco 

O.OCOOOOC 

0.0000000 

0.0000000 


ocoooco 

OOCOOOO 
OOCOOOO 
OOOOCOO 

ocoooco 

OOOOCOO 

ocoooco 
ocoooco 

OCCCOOO 
OOOOCOO 


CAGE  7 

O.OOOOCOO 
O.OOOOCOO 
.OOOOCOO 
.OOOOCOO 
.OOOOCOO 
.OOOOCOO 
.COOCCOO 
.OCOOOCO 
.COOCCOO 
.OCOOOCO 
.OOOOCOO 
.0000000 
.OCOOOCO 


0.0000000 


OOOOOOC 
OOCOOOO 
0.0000000 
0.0000000 
0.0000000 
0.0000000 

o.oocoooo 

0.0000000 
0.0000000 
0.0000000 
0.0000000 

0. OOOOCOO 

0.0000000 

0. OOOOCOO 

0000000 

ooooooc 

OOCOOOO 
OOOOCOO 
OOOOCOO 
OCOOOCO 
OOOOOOC 


CASE  8 

OCCCOOO 
OOCOOOO 

OOCOOOO 

OOCOOOO 
OOCOOOO 
OOOOCOO 
OOOOCOO 
COOCCOO 
OOCOOOO 
OOCCOCC 
OOCOOOO 
OOCOOOO 
OCCCOOO 
OOOOCOO 

OOOOCOO 

OOCOOOO 
0000000 
OOOOCOO 

ocoooco 

OCOOOCO 

ocoooco 

OCOOOCO 

ocoooco 

OOCOOOO 
OOCOOOO 
OOCOOOO 
OCCCOOO 
OOCOOOO 

oooccco 

OCOOOCO 

oooccco 

OOCOOOO 
OCCCOOO 
OOOOCOO 
OOOOCOO 


CASE  9 
0.0000000 

0. OCOOOCO 

0. ocoooco 
o.cccoocc 

0.0000000 


OOCOOOO 

ooooooc 

OOCOOOO 

ooooooc 

OOCOOOO 

ocoooco 

OOCOOOO 

ooooooc 

OCCCOOO 
OCCCOOO 
OOCOOOO 
OCCCOOO 

OCCCOOO 

OCCCOOO 
OCCCOOO 
OOOOCOO 

oooccco 

OOOCCCO 

ocoooco 
OOCOOOO 
oooccco 

OCCCOOO 

ooooooc 

OOCOOOO 

COOCCOO 

O.OOOOCOO 

0.0000000 

0.0000000 
0.0000000 
0.0000000 


CAGE  10 

O.OOOOCOO 

COOCCOO 

oooccco 

OCOOOCO 

ocoooco 

OOOOOOC 

ooooooc 

OOOOOOC 
OOOOCOO 
OOOOOOC 

ocoooco 

OOCOOOO 

ocoooco 

OCCCOOO 
OCCCOOO 
OCCCOOO 
OOOOCOO 

OOCOOOO 

OOOOCOO 
OOCOOOO 
OOCOOOO 
OOOCOOO 
OOOOCOO 
OOOCCCO 

ooooooc 

OOOCCCO 

ocoooco 

OOCOOOO 

OOOCOOO 

0.0000000 

0.0000000 

0.0000000 

0. ooooooc 

0.0000000 
0.0000000 
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"   THE   PROGRAM   HAC   REACHED   SiOPHAL   TERMINATION 


»   THE   PROGRAM   HAS   REACHED   NORMAL   TERMINATION 


94 


JETFLAP  INPUT  DATA  FILE  DOUGLAS.DAT 

*■■'  ONR  SAMPLE  CASE  ''"'"'^   RECTANGULAR  WING   CMU  =  1   WITH  STABILITY  DER 


4.500 

4.500 

1.  000 

0. 

250 

0. 

250 

4  3  0 

0 

0 

2  1  1 

0.  975C 

) 

0.  88750 

0. 68750 

0. 

2750 

1  1  2 

1 

5  6 

0.000 

0.  100 

0.  200 

0. 

500 

0. 

900 

0.  000 

0.  100 

0.  200 

0. 

500 

0. 

800 

4.500 

0.  000 

1.  000 

1  1  1 

1 

4 

1.  000 

1.  100 

1.  500 

3. 

000 

0  0  1 

0 

0 

1.  000 

1.  000 

1.  000 

1. 

000 

0  0  0 

0 

1 

0  0  1 

0 

0.  9000 

1 

0  1.  000 

1  0.  00 

9 

1.  000 

1 

2 

10.  00  3 

10.  00 

1.000 

1.  000 

1. 

000 

9 

0.  900 
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PROGRAM  OUTPUT  DATA  FOR  DOUGLAS.DAT 


EVD   JET  -  WING   COrPUTER   PROGRAM 


ONR  SAMPLE  CASE 


RECTANGULAR  WING 


WITH  STABILITV  DER 


USED 

INPUT 

AREA 

= 

0, 

.888889 

6.500000 

SPAN 

= 

4.  ' 

.000000 

4.500000 

CREF 

s 

0, 

.<,i,l.i.<.i> 

1.000000 

XMC 

= 

0, 

.111111 

0.C500O0 

CMAC 

= 

0, 

.CCt.i.i.C 

0.=o?3OQ 

ARATIO 

= 

4, 

.500000 

6.50C0CO 

XCG 

3 

0- 

.111111 

0.250000 

NROWS 

5 

« 

<, 

NCA3E3 

= 

3 

% 

ISVMM 

= 

0 

0 

IPRINT 

r 

0 

0 

JETFLG 

= 

0 

0 

IGTVPE 

= 

2 

2 

IHINGE 

= 

0 

1 

NUMBER  OF  WING  ELEMENTS  =  21 

NUMEER  OF  JET  ELEMENTS   =  U 

TOTAL  NUMBER  OF  ELEMENTS  =  3  7 

ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CAGE   1 


«"»  SECTION   1  •« 

"   Y  =   0.9 

75000   DELTA 

=   0.025000   XLEAD  = 

0.000000 

XTRAIL  = 

0.444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  :   5 

TWIST  =   0. 

000000     HL  =   0.000000     THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.100000 

0.200000    0.500000 

0.900000 

XI 

0.000000 

0.044444 

0.068889    0.222222 

0.400000 

DEL 

0.100000 

0.100000 

0.300000    0.4C0000 

0.100000 

EPS 

1  .000000 

I. 000000 

1.000000    l.OOOCOO 

1. OOOOOO 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

TYPE 

20 

10 

10          10 

10 

JET  ELEMENTS 

NJ  =   4 

D  =   0.888889     DJ  =   0.000000 

ACTE  = 

0.000000 

THETA 

=   1.000000 

XB 

1.000000 

1.100000 

1.500000    3.0C0000 

XI 

li.i.<.i,l.i.i, 

0.488389 

0.666667    1.333333 

DEL 

0.100000 

0.400000 

1.5C0000««««-»-^-^« 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

TYPE 

10 

10 

10          30 

«•"  SECTION   2  •" 

"   Y  =   0.887500   DELTA 

=   0.062500   XLEAD  = 

0.000000 

XTRAIL  = 

0.444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.100000 

0.200000    0.500000 

0.900000 

XI 

0.000000 

0  .  0444i:6 

0.088SS9    0.222222 

0.400000 

DEL 

0. lOCOOO 

O.IOOOCO 

0.300000    0.400000 

0.100000 

EPS 

1.000000 

l.OOCOOO 

1.000000    1.000000 

1 .000000 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

TYPE 

20 

10 

10           10 

10 

JET  ELEMENTS 

NJ  =   4 

D  =   0.888889     DJ  =   0.000000 

ACTE  = 

0.000000 

THETA 

=   1.000000 

xs 

1.000000 

1.100000 

1.500000    J. 000000 

XI 

0  .i.it,i.i.i. 

0.488SS9 

0.666667    1.333333 

DEL 

0.100000 

0.400000 

1.5O000O-«'<«-''^"'''<» 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

TYPE 

10 

10 

10         30 

»«•  SECTION   i  •« 

»   Y  =   0.687500   DELTA 

=   0.137500   XLEAD  = 

0.000000 

XTRAIL  = 

0.444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  :   6 

TWIST  =   0. 

000000      HL  =   0.000000      THETA  S  =   0, 

.000000 

XB 

0.000000 

O.ICCOOO 

0.200000    0.500000 

0.800000 

0. 900000 

XI 

0.000000 

0 . 044444 

0.088889    0.222222 

0.35555O 

0.400000 

DEL 

0.100000 

O.ICOOOO 

0.300000    0.300000 

0.100000 

0.100000 

EPS 

1 .000000 

1 .000000 

l.OOCOOO    1.000000 

1.000000 

1 .000000 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10         10 

10 

10 

JET  ELEMENTS 

NJ  =   6 

D  =   0.888889     DJ  =   0.000000 

AC*E  = 

0.000000 

THETA 

=   1.000000 

XB 

1.000000 

I.IOOOOO 

1.500000    J.OOCOOO 

XI 

0  .i.i,i.i.Ci, 

0.488S39 

0.666667    1.333353 

DEL 

0.100000 

0.400000 

1.500000«x»»''»»-»« 

BETA 

0.000000 

0.000000 

C. 000000    0.000000 

TYPE 

10 

10 

10          30 

«»«  SECTION  <;  «• 

>•   Y  =   0.2 

75000   DELTA 

=   0.275000   XLEAD  = 

0.000000 

XTRAIL  = 

0.444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0. 

OOOOOO      HL  =   0.000000      THETA  S  =   0, 

.000000 

XB 

0.000000 

O.IOOOCO 

0.200000    0.500000 

0.900000 

XI 

0.000000 

0.044-44 

0. 08888°    0.222222 

0.400000 

DEL 

0.100000 

0.100000 

0.300000    0.400000 

0.100000 

EPS 

1 .000000 

1 .000000 

1.000000    l.COOOCO 

1 .000000 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

o.oooooo 

TYPE 

20 

10 

10          10 

10 

JET  ELEMENTS 

NJ  =   4 

D  =   0.888889     DJ  =   0.000000 

ACTE  = 

0.000000 

THETA 

=   1.000000 

XB 

1.000000 

1.100000 

1.500000    3.000000 

XI 

o.4";i;46<; 

0.488889 

0.666667    1.333333 

DEL 

0.100000 

0.400000 

1.500COO««»«»'-'"«» 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

TYPE 

10 

10 

10          30 

•   ELEMENT  GEOMETRv  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CA; 

5E   2   « 

N  H  N  (i  M 

MliKMNIrMMNMI 

•  ««  SECTION   1  >•> 

■-       Y  =   0.9 

75000   DELTA 

=   0.025000   XLEAD  = 

0.000000 

XTRAIL  = 

0  .444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0. 

OOOOOO      HL  =   0.000000      THETA  S  =   0 

.000000 

XB 

0.000000 

0.100000 

0.200000    0.500000 

0.900000 

EPS 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

TYPE 

20 

10 

10         10 

10 

JET  ELEMENTS 

NJ  =  i 

D  =   0.888889      DJ  =   1.000000 

ACTE  = 

0.000000 

THETA 

•   1.000000 

XB 

1.000000 

1.100000 

1.500000    3.000000 

BETA 

1.000000 

0.000000 

0.000000    0.000000 

TYPE 

<i3 

10 

10         30 

«">•  SECTION   2  »•»   Y  =   0.887500   DELTA 

=   0.062500   XLEAD  = 

0.000000 

XTRAIL  • 

0  .444444 

CHORD  '   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0. 

OOOOOO     HL  =   0.000000     THETA  S  =   0 

.000000 

XB 

o.oooooo 

0. 100000 

0.200000    0.500000 

0.900000 

EPS 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

BETA 

0.000000 

0.000000 

0.000000    0.000000 

0.000000 

TYPE 

20 

10 

10         10 

10 

JET  ELEMENTS 

NJ  =  <; 

D  «   0.888889      DJ  =   1.000000 

ACTE  = 

0.000000 

THETA 

I   1.000000 

XB 

1.000000 

1.100000 

1.500000    3.000000 

BETA 

1.000000 

0.000000 

0.000000    0.000000 

TYPE 

43 

10 

10         30 

»»«  SECTION   3  '< 

«»   Y  =   0.687500   DELTA 

=   0.137500   XLEAD  = 

0.000000 

XTRAIL  = 

0  .444444 

CHORD  =   0.444444 

TANLE  = 

0.000000 

WING  ELEMENTS 

NW  :   6 

TWIST  =   0. 

OOOOOO     HL  =   O.OOOOOO     THETA  S  =   0 

.000000 

96 


XB 

0.000000 

0.100000    0.200000    0.500000 

0.800000    0.900000 

EPS 

O.OCOO'JO 

O.OOOOOO    0.000000    0.000000 

0.000000    0.000000 

BETA 

0.000000 

o.cooooo    0.000000    0.000000 

0.000000    0.000000 

TYPE 

ro 

10          10          10 

10          10 

vET  ELEMENTS 

NJ  =   6 

D  =   0.888889     DJ  =   1.000000 

ACTE  =   0.000000 

THETA 

=   1.000000 

XS 

1.000000 

I.IOOCOO    1.600000    3.0000C0 

BETA 

1.000000 

0.000000    O.OOOOOO    0.000000 

TVPE 

43 

10         10         30 

•  ""  SECTION   <;  «< 

i»   Y  =   0.2 

75000   DELTA  =   0.275000   XLEAD  = 

0.000000   XTRAIL  = 

O.mi'.'. 

CHORD  =  o.'ii'i'i'ii 

WING  ELEMENTS 

NW  :   5 

TWIST  =   0.000000      HL  =   0.000000      THETA  S  =   0. 

.000000 

XB 

0.000000 

O.IOOOCO    0.2C000C    0.500000 

0.900000 

EPS 

0.000000 

O.OOOOOO    O.OOOOOO    0.000000 

0.000000 

BETA 

0.000000 

0.000000    O.OOOOOO    0.000000 

0. OCOOOO 

TVPE 

20 

10          10          ID 

10 

JET  ELEMENTS 

NJ  =   6 

D  =   0.888389      DJ  =   1.000000 

ACTE  =   0.000000 

THETA 

=   1.000000 

XB 

1 .000000 

1.100000    1.500000    3.0O00C0 

BETA 

1.000000 

0.000000    0.000000    0.000000 

TYPE 

63 

10           10           30 

HWHMNMi^NMMMHHMMNMItMNItMMMWIIM^'MMMMffHHMNM 

"   ELEMENT  GEOMETPV  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE  Z       « 

»»»««>*>. 

>i)fK<>«tW^^>tti>tf^*itKK'^)>MI>M^'««ltNK»t«>~->>'MKKM 

HKMtt*'^*<MI<tNKHK!t>-'r)«»iKMKMNKftKWfMN>>)«M)*K»:»l«« 

«•«  SECTION   1  »• 

I"   Y  =   0.9 

76000   DELTA  =   0.025000   XLEAD  = 

0.000000   XTRAIL  = 

D.ii.mc. 

CHORD  =  o.mcci 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0.000000      HL  =   0.000000      THETA  S  =   0. 

,000000 

XB 

0.000000 

O.IOOOCO    0.200000    0.500000 

0.900000 

EPS 

0.000000 

0.000000    0.000000    0.000000 

0.000000 

BETA 

o.oocooo 

0.000000    0.000000    O.OOOOOO 

0.000000 

TVPE 

20 

10         10         10 

10 

JET  ELEMENTS 

NJ  =   6 

D  =   0.888889      DJ  =   0.000000 

ACTE  =   0.000000 

THETA 

=   0.000000 

XB 

1 .000000 

1.100000    1.500000    3.000000 

BETA 

0.000000 

0.000000    0.000000    0.000000 

TYPE 

iZ 

10          10          30 

"«'  SECTION  2    " 

!•   Y  =   0.887500   DELTA  =   0.062500   XLEAD  = 

0.000000   XTRAIL  = 

0  .ami 

CHORD  s   0.6<i<S<;66 

WING  ELEMENTS 

NW  =   5 

TInIST  =   0.000000     HL  =   0.000000     THETA  S  =   0, 

.000000 

XB 

0. OCOOOO 

0.100000    0. 200000    0.500000 

0.900000 

EPS 

0.000000 

0.000000    O.OOOOCO    0.000000 

0.000000 

BETA 

0.000000 

0.000000    O.OOOOCO    0.000000 

0.000000 

TVPE 

20 

10          10          10 

10 

JET  ELEMENTS 

NJ  =  <; 

D  =   0.888889     DJ  =   0.000000 

ACTE  =   0.000000 

THETA 

=   0.000000 

XB 

l.OOCOOO 

1.100000    1.500000    3.000000 

BETA 

0.000300 

0.000000    0.000000    0.000000 

TVPE 

<13 

10         10         30 

'«'    SECTION  Z    " 

•   Y  =   0.687500   DELTA  =   0.137500   XLEAD  = 

0.000000   XTPAIL  = 

0  .i,i,6Cii, 

CHORD  =  0.i,i.i,iii. 

WING  ele;-ients 

NW  =  i 

TWIST  =   0.000000      HL  =   0.000000      THETA  S  =   0, 

.000000 

XB 

0.000000 

O.IOOOCO    0.200000    0.60C0O0 

0.800000    0.900000 

E^S 

O.OOCOOO 

o.cooooo   O.OOOOCO   o.oocooo 

0.000000    l.OOOOCO 

BETA 

0.000000 

O.OOOOOO   0.000000   o.ooocoo 

0.000000    1.000000 

TVPE 

20 

10          10          10 

10           62 

JET  ELEMENTS 

NJ  =   li 

D  =   0.88888a      DJ  =   O.COOOOO 

ACTE  =   0.000000 

THETA 

=   1.000000 

XB 

1.000000 

1.100000    1.500000    3. OCOOOO 

BETA 

0.000000 

0.000000   O.OOOOOO   0.000000 

TYPE 

^z 

10          10          30 

««»  SECTION   6  •" 

<»       Y  =   0.2 

75000   DELTA  =   0.275000   XLEAD  = 

0.000000   XTRAIL  = 

0.A4<i<S64 

CHORD  =  o.^ma 

WING  ELEMENTS 

NW  =   5 

TWIST  =   0.000000     HL  =   0.000000     THETA  S  =   0 

.000000 

XB 

0.000000 

0.100000    0.200000    0.600000 

0.900000 

EPS 

o.cooooo 

O.OOOOOO   O.OOOOOO   o.ooocoo 

0.000000 

BETA 

0.000000 

0.000000    0.000000    0.000000 

0.000000 

TYPE 

20 

10          10          10 

10 

JET  ELEMENTS 

NJ  =   <i 

D  =   0.88888°      DJ  =   0.000000 

ACTE  =   0.000000 

THETA 

=  o.ooocoo 

XB 

l.OJOOOO 

1.100000    1.500COC    3. OCOOOO 

BETA 

o.cooooo 

0.000000   0.000000   o.cooooo 

TYPE 

'.J 

10         10         30 

«   SECTIONAL  JET  BLOWING  COEFFICIENTS   • 

1,  «  ,  „  ,  ►  M  X  ►»  i>  .  «  -  1.  »  1.  >  .  «  «  « 

,,,,.,,,,„,.,»«««,„, 

ROW      CMU 

1     1.000000 

2     1. OCOOOO 

3     1.000000 

6     1.000000 

TANLE  =   0.000000 


TANLE  =   0.000000 


GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR  FUNDAMENTAL  CASE 


«"•  SECTION   1  »< 
WING  ELEMENTS 

XB 

EPS 

BETA 

TYPE 

JET  ELEMENTS 

XE 

BETA 

TYPE 

«••  SECTION  2  •■ 

WING  ELEMENTS 

XB 

EPS 

BETA 

TYPE 

jet  elements 

XB 

BETA 

TYPE 

«•»  SECTION   3  ••' 

WING  ELEMENTS 

XB 

EPS 

BETA 

TYPE 

JET  ELEMENTS 

XB 

BETA 

TYPE 

«""  SECTION  <;  •' 

WING  ELEMENTS 

XB 

EPS 

BETA 

TYPE 

JET  ELEMENTS 

XB 
BETA 
TVPE 


Y  = 


0.97 

6 

.000000 

.400000 

.000000 

) 
c 

.ccoooo 

,000000 

f    =      0.88 

5 
,000000 
.iDOOOO 
,000000 


1. 

0. 

il 

•     \ 

NW  : 

0. 

-0. 
0. 


20 


NJ 
1 
0 


000000 

000000 

'  =   0.68 
6 

000000 
<iOOOOO 
,000000 

4 

,000000 

,000000 

! 

'   =   0.27 

5 
,000000 
,400000 
,000000 

) 
c 

,000000 
,0C0000 


50C0 
TWIST 
0.10 
-0.20 

o.oc 

10 
D  = 

1.10 

0.00 

10 

500 
TWIST 

0.10 
-0.20 

0.00 

10 
D  = 

1.10 

0.00 

10 

500 
TWIST 

0.10 
-0.20 

0.00 

10 
D  = 

1.10 

0.00 

10 
5000 
TWIST 

0.  10 
-0.20 

0.00 

10 
D  = 

1.10 

0.00 

10 


DELTA  = 

=   0.00 

0000    0 

0000    0 

0000    0 

1 

0.888S89 
0000  1 
0000    0 

1 

DELTA  = 

=   0.00 

0000    0 

coco   0 

0000    0 

1 

0.8S88S9 

0000  1 
0000    0 

1 

DELTA  = 

=   0.00 

0000    0 

0000    0 

0000    0 

1 

0.88888  9 

0000  1 
0000    0 

1 

DELTA  = 

=   0.00 

0000    0 

0000    0 

0000    0 

1 

0.88888  9 
0000  1 
0000    0 

1 

MXHHNff* 

•   CHOP 


0.02 

ooco 

.20000 
.19°?= 
.00000 
0 

.5orc 

.0000 
0 

0.0 
0000 
.2000 

.  l""" 

.0000 
0 

.5000 
.0000 
0 
0.1 

0000 
2000 

1 

0000 
0 

.5000 
.0000 
0 

0.2 

ooco 

.2000 

^  1  OQQ 

!oooo 

0 

5000 
0000 


0 
0 
0 

1 

DJ  = 
CO    3 
0   c 

02500" 

HL 
00    0 

CO    0 

1 

00    3 
00    0 

37500" 

HL 


00 
9 

00 

DJ  = 

00 

00 

75000 

HL 
00  0 
99  0 
00    0 

1 

DJ  = 
00    3 
00    0 


XLEAD 
=  0.0 
.500000 
.=00000 
.OCOOOO 
0 

o.ocooo 
.000000 

.000000 

0 
XLEAD 
=   0.0 

.500000 

.=00000 

.000030 

0 

D.COOOO 

.000000 

.000000 
0 
XLEAD 
=  0.0 
.500000 
.800000 
.000000 
0 

0.00000 
.000000 
.000000 
0 
XLEAD 
=  0.0 
.5CC000 
.900000 
.000000 
0 

0. 00000 
.000000 
.000000 
0 


0.000000   XTRAIL  - 
00000      THETA  S  =   0. 
0.900000 
1 .400000 
0.000000 
10 

ACTE  =   0.000000 


0 .444444 
000000 


CHORD  =   0.444444   TANLE 


THETA  =   1 .500000 


O.OOCOOO   XTRAIL  =   0.444444   CHORD  =   0.444444 
00000      THETA  S  =   0.000000 
0.900C00 
1 .400000 
0.000000 
10 

ACTE  =   0.000000      THETA  =   1.500000 


=   0.000000   XTRAIL  =   0.444444   CHORD  =   0.444444 
00000     THETA  S  =   0.000000 
0.800000    0.900000 

1.400000 

0.000000 


TANLE  =   0.000000 


1,109999 
0.000000 
10 

ACTE  = 


0.000000 


THETA  =   1.500000 


0.000000   XTRAIL  =   0.444444   CHORD  =   0.444444 
00000     THETA  S  =   0.000000 
0.900000 
1 .4C0000 
0.000030 
10 

ACTE  =   0.000000     THETA  «   1.500000 


TANLE  =   0.000000 


DWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION   1 


97 


JET 


2i 


2b 
27 
28 
29 


11 
12 
li 
14 
15 
lb 

30 

:i 


17 
18 
1° 

20 
21 


SECTION 
1 


XE 

o.coooco 

0  .  1  C  0  C  0  D 

o.2c:oGC 

0.500000 
0.500000 


ooooco 

IQOCOO 
500000 
000000 

020000 
040000 
0600C0 
080000 
100000 


XB 

.000000 

.100000 
.200000 
.500000 
.900000 


1.000000 
1 . 100000 
1.500000 
3. ooooco 


C20000 
040000 
ObOOOO 
080  000 

100000 


1  .50 
3.00 


0000 
0000 

coco 

0000 

cooo 

0000 

0000 

0000 

oooc 

0000 


020000 
C4CO00 
0  'J  0  0  0  0 
080000 
100000 


XB 

.000000 
. 100000 

.200000 

.500000 
."OOOOO 


020000 
040000 
060000 
080000 
100000 


,12°570 
06247" 

.Oioill 
,01t3c7 
,007476 

,005187 

,  0  C  3  -  0  i 
!001203 
,000202 


0.188371 
0. 127018 
0.097175 
0.077455 
0.062479 


CA3E  1 

0.185800 
0.107433 
0.064708 
0.02=236 
0.012979 


008877 
0054»8 
001870 

000287 

273687 
18=277 

150051 
125340 
107433 


230760 
143897 
089534 
0440'>8 
025147 
020025 


0.013414 
0.008233 

0.002674 
0.00034S 


0 .3414C3 
0.2380=5 

0.1=06^1 

0.l6l6'.4 

0.140897 


CASE    1 

0.261297 
0.162281 
0.  105238 
0.054222 
0.02530= 


l.OOOCOO  0.017243 

I.IOOOCO  O.OlOoSo 

1.500CC0  O.0C3524 

3.000000  0.000403 


0.387135 
0.27C6O4 
0.217733 
0. 185226 
0.U2281 


0.975000 
C. 887500 
0.687500 
0.275000 


CLC 
0.034284 
0.056186 
0.076014 
0.08=566 


CASE   2 

3.015231 
0.009627 
0.007270 
0 .006750 
0.0U049 


006761 
004529 
C03624 
004280 
005106 


CASE  4 

0.028«'>3 
0.041840 
0.042261 

0.044040 

0.C33778 


000000 

ocuooo 
00-000 

03C000 
OCOOOO 


0589 

0091 
0012 
0001 


76 


0.0226 
0.0158 
0.0127 
0.0109 
0.00=6 


0.0036 
0.0024 
0.0005 

o.oco: 

DETAIL 

o.oic:s 

0.00713 
0.00583 
0.005C5 
0.00452 


0 
0 
0 

6  0 
ED  LE 
0 
0 
0 
0 
0 


.019 
.0 

.  c 

.000 

ADIN 

.047 

.0 

.038 

.039 

.041 


742  0.000000 
350  0.000000 
077  0.000000 
26l  0.000000 
7^EDGE  LOADING 

565 

460 
619 
840 


000000 
OOOOCO 
OCOOOO 
030000 
OOOCQO 

000000 
000000 
000000 
000000 


2H0RDtJlSE  L0A2ING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION   2 
CASE  2      CAS 


0.024182 
0.0170=4 
0.013036 
0.012062 
0.027342 


0.07 
0.01 


1213 
5620 
0 

0155 

6243 
5879 
13  =  6 
8803 
0=4 


0.010750 
0.008019 
0. 0064== 
0.0079=8 
0.011413 

0.008014 
0.004877 
0.000959 

0.00003 


0.687500 
CASE  4 

0.056734 
0.0685=6 
0.067874 
0.070135 
0.051704 

0.030824 
0.014111 
0.003273 
0.0003o9 


CHORD  = 
CASE  5 

0.000000 

o.oooooo 

0.000000 
0.000000 
0.000000 

0.000000 

o.oooooo 

0.000000 
C.0CC300 


C. 444444 

CASE  6 

0.000000 

0.000000 
0.000000 
0.000000 
0.000000 


DETAILED  LEADING  EDGE  LOADING 


000000 
000000 
000000 
000000 


01615 

011673 

009764 

008694 

008019 


0=0728 
072112 
067293 
066906 
0685=6 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   « 


SECTION  3      Y  =  0.687500  CHORD  =  0.444444 

CASE  2      CASE  3  CASE  4  CASE  5  CASE  6 

0:4686  0.014448  0.091338  0.000000  0.000000 

025132  0.011127  0.095=08  0.000000  O.OOOOOO 

01=422  0.009287  0.090417  0.000090  0.000000 

018778  0.012471  0.089255  0.000000  0.000000 

027831  0.032386  0.073=30  0.000000  0.000000 

035635  0.085626  0.062236  0.000000  0.000000 

076381  0.026293  0.03=216  0.000000  0.000000 

01=171  0.011354  0.01=383  0.000000  0.000000 

002923  0.001175  0.004705  0.000000  0.000000 

00017=  0.000040  0.000442  0.000000  O.OOOOOO 

DETAILED  LEADING  EDGE  LOADING 

052102  0.021836  0.143840 

037353  0.015827  0.110679 

031040  0.013332  0.09=351 

027456  0.011=65  0.0961=8 

025102  0.011127  0.095908 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION 
CASE  2 

0.044339 
0.032006 
0.02465= 
0.022370 
0.036868 


4      Y  = 

CASE  3 

0.011430 
0.007930 
0.0056C8 
0.004253 
0.002913 


0.275000 
CASE  4 

0.121581 
0.117143 
0.106312 
0.1016=1 
0.071827 


CHORD  = 
CASE  5 

0.000000 

0.000000 
0.000000 
0.000000 
0.000000 


0.0 
0.0 
0.00 
0.00 

0.06 
0.04 
0.03 
0.03 
0.03 


8281 
0564 
3578 
0220 

j586 

?7l6 


0.0 
0.0 
0.0 
0.0 
DE 
0.0 


094 

440 

644 

081 

ILED 

101 

172 


0.044615    0.000000 
0.022860    0.000000 
0.005==0    0.000000 
0.000522    O.OOOOOO 
LEADING  EDGE  LOADING 
0. 186460 
0.1425=3 
0.126294 
0.11=4=2 
0. 117143 


0.444444 
CASE  6 

0.000000 

0.000000 

o.coooco 

0.000000 
0.000000 

0.000000 
0.000000 
0.000000 
0.000000 


06    0.007=30 

SPANWISE  LOADING  FOR  FUNDAMENTAL  CASE   1 


»#H¥%t*m* 


CASE  7 

0.000000 
o.ococoo 
o.oooooo 
o.oooooo 

0.000000 
0.000000 

o.coooco 
o.oooooo 

0.000000 


000000 
000000 

ooocoo 

000000 


.  LIFT  .. . 
CL-'U 
0.017453 
0.017453 
0.017453 
0.017453 


CL 
0.051737 
0.073639 
0.093467 
0.107019 


CDG 
0.0005=84 
0.0C09806 
0.0013267 
0.0015632 


CDMU 
0.0001523 
0.0001523 
0.0001523 
0.0001523 


CS 

0.0002=30 
0.0005025 
0.0009294 
0.0011916 


INDUCED  DRAG 
CD 
0.0004577 
0.0005304 
0.0005496 
0.0005239 


CASE  8 

O.OOOOOO 

O.OOCOOO 

o.oooooo 
o.oooooo 

0.000000 


000000 

000000 

ooocoo 

000000 


CASE  8 

0.000000 
0.000000 

0.000000 

o.oooooo 

0.000000 


0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 


CASE  7      CASE  8 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  o.oooooo 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 

0.000000  0.000000 


CASE  7     CASE  8 

0.000000  0.000000 

0.000000  0.000000 

0.000030  o.ococoo 

0.000000  o.oooooo 

0.000000  o.oocooo 

0.000000  0.000000 

o.oooooo  0.000000 

0.000000  o.oooooo 

0.000000  0.000000 


CMU 
I. 0000000 
1 .0000030 
1 .0000000 
1.0000000 


oooooo 
ococcc 
ooooco 

030000 

oooooo 

oooooo 
oooooo 
oooooo 
oooooo 


oooooo 
oooooo 
oooooo 
oooooo 
oooooo 


0.000000 
0.000000 
0.000000 
0.000000 


CASE  9 

o.oocooo 

0.000000 
0.000000 
0.000000 
0.000000 

o.oooooo 


oooooo 

oooooo 
oooooo 
oooooo 


CASE  9 

oooooo 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
ooooco 
oooooo 


GAMMA 
0.0082369 

0. 0134014 

0.0182760 
0.0216792 


o.ococoo 
o.ococrc 
o.ocooc 


occco 
ooooco 

oooooo 
oooooo 
oooooo 


0.000000 


oooooo 

003000 
0C0C33 

oooc 


0.000000 

0.000000 
0.000000 

o.oocooo 

0.000000 


CASE  10 

o.oocooo 

0.000000 

o.oooooo 
.ooooco 

.000000 

.ooocoo 


oooooo 

ccocco 
oooooo 
oooooo 


CASE  10 

0.000000 
0.000000 
0.000000 
0.000000 

o.oooooo 

0.000000 
0.000000 
0.000000 
0.000000 


ALFIN 
0.0430782 
0.021=981 
0.0120724 
0.0065520 


TOTAL 


0.078901   0.017453   0.096356 


PITCHING  MOMENT 


0.0013771   0.0001523   0.0010010   0.0005285   0.9999999 


0.975000  -0.0C7640  -0.017453   0.017453  -0.007640 


0.887500  -0.013420  -0.017453 
0.687500  -0.019453  -0.017453 
0.275000  -0.023831  -0.017453 


0.017453  -0.013420 
0.017453  -0.019453 
0.017453  -0.023831 


lift  center  . . . 
:p/c    xcl/c 

0.222834   0.485007 


0.0005049 


0.238857 
0.255=12 
0 .266070 


0.41=256 
0.394857 
0.385763 


-0.020516 
-0.000790 


•0.017453 
•0.013090 


0.017453  -0.020516 
0.013090  -0.000790 


(APEX) 
(XMCi 


0.260017 
0.115563 


0.394053  (X/CREF) 
0.175135  (X/B/2) 


SPANWISE  LOADING  FOR  FUNDAMENTAL  CASE   2 


SECTION 
1 


0.975000 
0.887500 
0.687500 
0.275000 


CLC 
0.013256 
0.C21353 
0.028445 
0.033527 


.  LIFT  . .. 
CLMU 
0.017453 
0.017453 
0.017453 
0.017453 


CL 
0.030710 
0.038836 
0.0458=9 
0.050=80 


CDG 
O.OCOOOOO 
0.0000000 
0.0000000 
0.0000000 


CDMU 
0.0001523 
0.0001523 
O.0CO1S23 
0.0001523 


CS 

0.0000040 
0.0000102 
0.0000210 
0.0000343 


INDUCED  DRAG 
CD 
0.0001483 
0.0001421 
0.0001313 
0.0001180 


CMU 
l.OOCOCOO 
1.0000000 
1.0000000 
1.0000000 


GAMMA 
0.0044428 
0.0069194 
0.008=616 
0.0103522 


ALFIN 
0.0255782 
0.0122945 
0.0057630 
0.0022041 


TOTAL    0.029594   0.017453   0.047047   « 

PITCHING  MOMENT  ., 

SECTION      Y         CMG        CMMU       CMT 

1      0.975000  -0.007834  -0.017453   0.000000 


0.0000000   0.0001523 


CM 
-0.02 


0.C000261   0.0001262   0.9999999 
, . .  LIFT  CENTER  ... 

XCP/C     XCL/C 
0.590995   0.823444 


0.0001167 


98 


0.887500  -0.0i:082  -0.017<;5; 
0. 687500  -O.OlSlol  -0.017653 
0.275000  -0.0170u7  -0.017'.53 


0.000000  -0.02O5;5 
0.000000  -0. 032615 
O.OCOOOO  -0.0i<;520 


0.565827  0.761099 
0.533000  0.710560 
0.50='063   0.677125 


.015s53 
.008059 


-o.o;; 
-o.oi; 


0.0 

0.0 


0000 

cooo 


.032 
.021 


'11   (APEX) 
.69   CXMC) 


0.522332 
0.232168 


699536  CX/CREF) 
310906  (X/B/2) 


SPANWISE  LOADING  FOR  FUNDAMENTAL  CASE 


SECTION 
1 


0 

0.8 
0. 
0. 


5000 
87500 
S7500 
75000 


CLG 
0.0068 
0.00«2 
0.0265 
0.0056 


.  LI 
CL 
0.0 
0.0 
0.0 
0.0 


FT  .  .  . 

MU 

ooooo 

00000 
17653 
OOOOO 


CL 

.006811 

.00=230 

.061=66 

.005619 


CDMU 
0.0000000 
O.OOCCOOO 
0.0001523 
O.COOOCOO 


CS 


INDUCED  DRAG 
CD 

0.0000008  -0.0000008 
0.0000020  -0.0000020 
0.000C036  0.0002663 
0.0000023  -0.0000023 


CMU 
1 .0000000 
1 .0000000 
1 .0000000 
1 .0000000 


GAMMA 
0.0013869 
0.0026327 
0.0Ccb622 
0.0016O31 


ALFIN 
0.0050637 
O.OOI6068 
0.0108776 
0.0095607 


0.011115   0.006800   0.015915 


SECTION 
1 


PITCHING  MOMENT 


0.000026 


Y         CMG  CMMU 

.975000  -0.002250  0.000000 

.887500-0.006613  0.000000 

.687500  -0.01623O  -0.017'.53 

.275000  -0.001892  0.000000 


CMT  CM 

O.OOOOOO  -0.002250 

0.000000  -0.006613 

0.001765  -0.031°66 

0.000000  -0.001892 


0.0000619   0.0000025   0.0000662   0.9999999 
. .  .  LIFT  CENTER  .  .  . 
«   «       KCP/C      XCL/C 

»   «  0.667717   0.667717 

"   »  0.699867   0.699867 

«   «  0.662626   0.802827 

•   «  0.3691o5   0.36oio5 


0.0000785 


TOTAL 


-0.0061= 


-0.006S00   0.0006SO  -0.010515   (APEX) 


-0.003616  -O.OOioOO   0.000680  -0.006536   (XMC) 


0.557336   0.690835  (X/CREF) 
0.267706   0.307058  (X/E/2) 


SPANWIGE  LOADING  FOR  FUNDAMENTAL  CASE 


SECTION 
1 
2 
3 
4 


Y 

0.975000 
0.887500 
0.6S75C0 

0.275000 


CLG 
0.060381 
0.065122 
O.C8b605 
0. 100916 


.  LIFT  . .. 
CLMU 
0.02ol80 
0.026180 
0.02618C 
0.026180 


CL 
0 . 066561 

0.091302 
0.112785 
0.127096 


CDG 
0.0003055 
0.0006685 

0.0005723 
0.0006315 


CDMU 

0.00036: 
0.00036: 

0.00036: 

0.00036: 


CS 
0.0000167 

0.0000562 
0.0001672 
0.0002580 


INDUCED  DRAG 
CD 
0.0006335 
0.0007550 
0.0007678 
0.0007162 


CMU 
1 .00000 
1 .00000 
1 .00000 
1.00000 


GAMMA 
0.0102552 
0.0165165 
0.0220219 
0.0257769 


ALFIN 
0.0556085 
0.0278858 
0.0165238 

0.0069873 


TOTAL 


0.089678 


0.026180      0.115658      « 

PITCHING  MOMENT 


0.0005785   0.0003627 


SECTION  Y  CMG  CMMU 

1  0.975000  -0.018667  -0.026180 

2  0.837500  -0.029355  -0.02ciSO 

3  0.687500  -0.037713  -0.026180 
6  0.275000  -0.062616  -0.026130 


CMT  CM 

0.000000  -0.066867 

0.000000  -0.055536 

0.000000  -o.063ev3 

0.000000  -0.068796 


0.0001901   0.0007311   0.9999999 
LIFT  CENTER 


XCP/C 
0. 662280 
0.650760 
0.635665 
0.622296 


XCL/C 
0.673778 
0.608269 
0.566507 
0.5612=6 


TOTAL 


-0.033612  -0.026180 
-0.016065  -0.019635 


0.000000  -0. 
O.OOOOOO  -0. 


6592 
5678 


(APEX) 
(XMC) 


0.6292 

0.1907 


0.55S675 
0.268211 


(X/CREF) 
(X/B/2  ) 


0.0007208 


LIFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING  ABOUT  XCG.  CL(D  =   0.089678 
PITCHING  MOMENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN  DUE  TO  PITCHING  ABOUT  XCG-  CMC  =  -0.038612 
PITCHING  MOMENT  COEFF  DERIVATIVE  AEOUT  XMC  DUE  TO  PITCHING  ABOUT  XCG.  CMCMC  =  -0.016063 

>•   TOTAL  AERODYNAMIC  COEFFICIENTS   " 


CASE  1 

CASE  2 

CASE  3 

CASE  6 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CAGE  10 

CCLG 

0 

.078«C25 

0, 

.0295961 

0 

.0111151 

0, 

.08=6786 

0. 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0. 

,0000000 

CCLJ 

0 

.0176533 

0, 

.0176533 

0. 

.0067990 

0, 

.02617=9 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0. 

,0000000 

1    CCL 

0 

.0=63558 

0. 

.0670676 

0 

.015=168 

0, 

.1156583 

0. 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0. 

0000000 

CCDG 

0 

.0013771 

0. 

,0000000 

0. 

.0000269 

0, 

.0005785 

0. 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0. 

,0000000 

CCDJ 

0 

.0001523 

0, 

.0001523 

0, 

.0000619 

0, 

,0003627 

0, 

,0000000 

0 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

CCS 

0. 

■OOIOOIO 

0, 

.0000261 

0, 

.0000025 

0. 

,0001901 

0, 

,0000000 

0. 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0. 

,0000000 

COD 

0 

.0005285 

0, 

.0001262 

0, 

. 0000662 

0, 

,0007311 

0, 

,0000000 

0 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000-30 

(1. 

,0000000 

'    CDITZ 

0 

.0005069 

0, 

.0001167 

0, 

.0000735 

0. 

,0007208 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

CCJ 

0 

qOQOQQQ 

0 

QQQCOOQ 

0 

_  PQQQQQQ 

0 

OQQOQCQ 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

, oonoooo 

0, 

,0000000 

CCMG 

-0 

.0205160 

-0 

.0156580 

-0 

.00ol=69 

-0, 

,0386126 

0, 

,0000000 

0, 

.0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

CCMJ 

-0 

.0176533 

-0, 

.0176533 

-0, 

.0067==6 

-0, 

,02617=9 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0, 

, 0000000 

0, 

,0000000 

0, 

,0000000 

CCMT 

0 

.0176533 

0 

.0000000 

0 

.0006800 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

0, 

,0000000 

COM 

-0 

.0205160 

-0 

.032=113 

-0. 

.0105165 

-0, 

,0665=23 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

CXCP 

0 

.2600171 

0 

.5223326 

0 

.5573365 

0, 

,6292=28 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0, 

.0000000 

0 

,0000000 

0, 

,0000000 

CXCL 

0 

. 3=60530 

0, 

.69=5336 

0 

.6908356 

0, 

,5536753 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0, 

,0000000 

0 

,0000000 

0, 

,0000000 

CXCPB 

0 

.1155t=31 

0 

.2321677 

0 

.2677061 

0 

,19079d7 

0, 

,0000000 

0 

.0000000 

0 

,0000000 

0 

,0000000 

0 

.0000000 

0, 

,0000000 

CXCLB 

0 

.1751366 

0, 

.310=038 

0 

.3070379 

0 

,2682112 

0, 

,0000000 

0 

.0000000 

0 

.0000000 

0 

,0000000 

0 

.0000000 

0, 

,0000000 

CCMGXC 

-0 

.0007906 

-0 

.0080596 

-0 

.0036161 

-0, 

,01o0628 

0, 

,0000000 

0 

.0000000 

0, 

.0000000 

0, 

,0000000 

0 

.0000000 

0, 

,0000000 

CCMJMC 

-0, 

.0130=00 

-0, 

.0130900 

-0 

.0035==7 

-0. 

,C1==350 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0, 

.0000000 

0 

.0000000 

0, 

.0000000 

CCMTi'C 

0 

.0130900 

0 

.0000000 

0, 

.0006800 

0, 

,0000000 

0, 

,0000000 

0 

,0000000 

0, 

,0000000 

0 

,0000000 

0 

.oooocoo 

0, 

.0000000 

1  CCMMC 

-0 

.0007=06 

-0 

.0211696 

-0 

.0065358 

-0. 

,035c.778 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

0 

.ooccooo 

0, 

,0000000 

CLLG 

0 

.0000000 

0 

.0000000 

0 

.0000000 

0, 

,0000000 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

0 

.0000000 

0, 

.0000000 

CLLJ 

0 

.0000000 

0 

.0000000 

0 

.0000000 

0, 

,0000000 

0, 

,0000000 

0 

,0000000 

0 

,0000000 

0 

,0000000 

0 

.0000000 

0 

.0000000 

CuL 

0, 

.0000000 

0 

.0000000 

0 

.0000000 

0 

,0000000 

0, 

,0000000 

0 

.0000000 

0 

,0000000 

0 

,0000000 

0 

.0000000 

0, 

.0000000 

CNJ 

0 

.0000000 

0 

.0000000 

0 

.0000000 

0 

,0000000 

0, 

,0000000 

0 

.0000000 

0 

,0000000 

0 

, 0000000 

0 

.0000000 

0 

.0000000 

CNIMC 

0 

.0000000 

0 

.0000000 

0, 

.00:0000 

0, 

,0000000 

0, 

,0000000 

0, 

.0000000 

0 

,0000000 

0, 

,0000000 

0 

.oooocoo 

0, 

.0000000 

CCY 

0 

.0000000 

0 

.0000000 

0 

.0000000 

0, 

,0000000 

0, 

,0000000 

0 

.0000000 

n 

,0000000 

0 

,0000000 

0 

.0000000 

0 

.0000000 

CBGR 

0 

.0358227 

0 

.0136o60 

0 

.00o7121 

0 

,0603300 

0 

,0000000 

0 

.0000000 

0 

.0000000 

0, 

,0000000 

0 

,0000000 

0 

.0000000 

CEGL 

0 

.0358227 

0 

.0136660 

0 

.0067121 

0, 

,0608300 

0, 

,0000000 

0 

.0000000 

0 

,0000000 

0 

,0000000 

0 

.0000000 

0 

.0000000 

CEJR 

0 

.0087266 

0 

.0087266 

0 

.0032=98 

0 

,0130900 

0 

,0000000 

0 

.0000000 

0 

.0000000 

0 

,0000000 

0 

. oooocoo 

0 

.0000000 

CBJL 

0 

.0087266 

0 

.0087266 

0 

.00:2==8 

0, 

,0130=00 

0, 

,0000000 

0 

.0000000 

n 

.0000000 

0, 

,0000000 

0 

.0000000 

0 

,0030000 

CER 

0, 

.0665696 

0 

.0221906 

0 

. 01001 19 

0. 

,053=200 

0, 

,0000000 

0, 

.0000000 

0 

,0000000 

0, 

,0000000 

0 

.0000000 

0 

.0000000 

CBL 

0 

. 06656=6 

0 

.0221=06 

0 

.0100119 

0 

,0539200 

0 

,0000000 

0 

.oooocoo 

n 

,0000000 

0 

,0000000 

0 

.0000000 

0 

.0000000 

CPMER 

0 

.6623622 

0 

.6716666 

0 

.6290910 

0, 

,6662009 

0, 

,0000000 

0 

.0000000 

n. 

,0000000 

0, 

,0000000 

0 

.0000000 

0 

.0000000 

CPMEl 

0 

.6623622 

0 

.671d666 

0 

.6290=10 

0, 

.666200= 

0, 

,0000000 

0 

.0000000 

0, 

,0000000 

0, 

,0000000 

0 

.0000000 

0 

.0000000 

«   CHORDWIGE  LOADING  FOR  COMPOSITE  CASE   1   » 

FUNDAMENTAL  CASE  FACTORS 
A(n         A(2)         A(5)         A(6)         A(5)         A(6)  A(7)         A(8) 

0.000000    10.000000    10.000000     0.000000     0.000000     0.000000     0.000000     0.000000 
NOTE  «»"   EACH  LEADING  EDGE  CP  VALUE  IS  THE  AVERAGE  VALUE  OF  THE  SINGULAR  DISTRIBUTION 
DO  NOT  PLOT  THESE  LOADING  POINTS  DIRECTLY 

SECTION   I     Y  =   0.975000     CHORD  =   0.666666 


A(9) 
0.000000 


A(10) 
0.000000 


WING 

XB 

0. 

,000000 

0. 

,100000 

0.200000 

0.500000 

0.900000 

CP(A=0) 

0, 

,21=927 

0, 

,161560 

0.108960 

0.110106 

0.211551 

cP(A=n 

0, 

,129570 

0, 

,062679 

0.03oll3 

0.016367 

0.007676 

JET 

XB 

I 

,000000 

1, 

,100000 

1.500000 

3.00C00O 

CP(A=0) 

0, 

,626266 

0, 

,115851 

0.018650 

0.001371 

cp(A=n 

0, 

,005187 

0, 

,003301 

0.001203 

0.000202 

SECTION   2 

Y  =   0.887500     CHORD  = 

0.466666 

WING 

XB 

0 

,000000 

0. 

.100000 

0.200000 

0.500000 

0.900000 

CP(A=0) 

0 

.369322 

0, 

,251131 

0.195366 

0.200600 

0.387550 

CP(A=1) 

0 

.185800 

0, 

.107633 

0.0o6708 

0.029236 

0.012979 

JET 

XB 

I 

.000000 

1, 

.100000 

1.500000 

3.000000 

CP(A=0) 

0 

.792271 

0 

.205030 

0.02=6=1 

0.001867 

CP(A=1) 

0 

.008877 

0 

.005698 

0.001876 

0.000287 

SECTION   3 

Y  =   0.687500     CHORD  = 

0.666666 

WING 

XB 

0 

.000000 

0 

.100000 

0.200000 

0.500000 

0.800000     0. 

900000 

99 


CP(A=0) 

0 

i?\ZZS 

0 

362:e7 

0 

2870O7 

0.312489 

0.602165     1 

212604 

CPCA=1) 

0 

230760 

0 

1608S7 

0 

08'- 584 

0. 044098 

0.025147     0 

020025 

JET 

XB 

1 

DOOOCO 

1 

lOOOOO 

I 

50CCOO 

3.000000 

CP(A=0) 

1 

0:67il 

0 

305:51 

0 

0^C?79 

0.C02192 

CP(A=:1) 

0 

Ois-iiu 

0 

oo8r:8 

0 

00C67<; 

0.000348 

SEC 

■lOKi   4 

Y  =   0.275000     CHORD 

=   0.44 

WING 

XB 

0 

000000 

0 

100000 

0 

200000 

0.500000 

0.900000 

CP(A  =  0  ) 

0 

5S7b°3 

0 

3°=>360 

0 

ZuUa^ 

0.266232 

0.397806 

CP(A=1  ) 

c 

C6i:97 

0 

\izzs] 

c 

105208 

0.054222 

0.025306 

JET 

XB 

1 

000000 

1 

100C90 

1 

5000C0 

S.OOCOOO 

CP(A=0) 

0 

80J768 

0 

2:0035 

0 

C62223 

0.003CC8 

CP(A=i) 

0 

017;<i3 

0 

010686 

0 

od;52<; 

C.O0Q4O3 
»   COMPOSITE 

CASE   1   » 

FUNDAMENTAL  CASE  FACTORS 


A(l) 

AC 

) 

A(3 )       A(4 ) 

i. 

(5) 

A(6) 

Ar7) 

ACS) 

A(9) 

A(IO) 

0 

000000 

10.000000 

0.000000   0.000000 

0.000000   0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

.... 

LIFT 

, 

.  PITCHING 

MCH^NT  . . 

LIFT  CFWTFP  _ 

ECTION 

Y 

"CLGC 

CLMUO      CLO 

1. 

CMOO 

CMMUO 

CMTO 

'CMO 

XCPO/C 

XCLO/C 

CLGA 

CLMJA      CLA 

M 

CMGA 

CMMUA 

CMTA 

CMA 

XCPA/C 

XCLA/C 

1 

0 

975000 

0.18C 

673 

0.174533   0.3552 

06 

» 

-0. 100846 

-0.174533 

0.000000  - 

0.275379 

0.558167 

0.775265 

o.or< 

284 

0.01" 

453   0.0517 

I  7 

m 

-0.007d40 

-0.017453 

0.017453  - 

0.007640 

0.222834 

0.485007 

2 

0 

887500 

0.305825 

0.174533   0.4803 

58 

*• 

-0. 166°54 

-0.174533 

0.000000  - 

0.34K87 

0.545914 

0.710901 

0.C5c 

186 

0.01" 

453   0.0736 

3^ 

M 

-0.013420 

-0.017453 

0.017453  - 

0.013420 

0.238957 

0.419256 

3 

0 

687500 

0.52  = 

559 

0.34  = 

066   0.8786 

25 

It 

-0.313''77 

-0.349066 

0.017453  - 

0.645590 

0.592904 

0.754638 

0.07e 

o:4 

o.ci; 

453   0.0934 

67 

M 

-0.0I°453 

-0.017453 

0.017453  - 

0.019453 

0.255912 

0.594857 

4 

0 

275000 

0.38  = 

45° 

0.174533   0.5639 

92 

M 

-0. 160587 

-0.174533 

0.000000  - 

0.364120 

0.486797 

0.645612 

0.08  = 

5c6 

0.017453   0.107019 

I 

-0.023331 

-0.017453 

0.017453  - 

0.023831 

(APEX) 

0.266070 

0.385763 

TOTAL 

0.40" 

no; 

0.22: 

529   0.6296 

;- 

-0.216528 

-C.222520 

0.004800  - 

■0.434258 

0.531889 

0.697335 

0.076 

^03 

0.01" 

453   0.0963 

5o 

H 

-0.020516 

-0.017453 

0.017453  - 

0.020516 

(APEX) 

0.260017 

0.394053 

•« 

-0.114755 

-0.16o897 

0.004800  - 

■0.276852 

(XMC) 

0.236395 

0.300927 

M 

-0.000790 

-0.013090 

0.013090  - 

0.000790 

(XMC) 

0.115563 

0.175135 

.... 

.  ..  INDUCED 

DRAG  

SECTION 

Y 

'CDGO 

"CDMUO 

"cso 

CDO 

GAMMAO 

'  ALFINO" " 

"cto 

CMU' 

CDGX 

CDMUX 

CSX 

CDX 

CDGA2 

CDMUA2 

CSA2 

CDA2 

GAf^MA2 

ALFINA 

1 

0.9 

75000 

0.00 

;oooo 

0.0152309 

0 

0008442 

0.0143867 

0.0582766 

0.3064195 

0.985613 

J 

1.0000000 

0.01 

:i533 

0.00304,2 

0 

0009 

°47 

0.00520^8 

0.00 

:5''S4 

0.0C01523 

0 

0002 

930 

0.0004577 

0.0082369 

0.0430782 

^ 
k 

0.887600 

0.00 

:croc 

0.0152309 

0 

0021 

297 

0.0131011 

0.0055214 

0.1378922 

0.986898 

9 

1.0000000 

0.00 

:;  77 

0.0020462 

0 

0022 

6^6 

O.CO0II82 

0.00 

:=■;  "6 

0.0C01523 

0 

0006 

025 

0.00053C4 

0.0134614 

0.021O981 

3 

0.6 

37500 

0.01 

354.0 

0.0609235 

0 

0042 

134 

O.C7o25!9 

0.1560372 

C.loo4044 

0.9237481 

1.0000000 

0.00 

=  5343 

0.0060°23 

0 

0039 

577 

0.011t.6O0 

0. 0013207 

0.0001523 

0 

0009 

294 

0.0005496 

0.0182760 

0.0120724 

4 

0.2 

75000 

0. OOOCOOO 

0.0152309 

0 

0054 

284 

0.0098025 

0.1184530 

0.1174480 

0.990197 

5 

1 .0000000 

0.00 

=  7973 

0.0030462 

0 

0050867 

0.0C475b8 

,/ 

TOTAL 

0.0015632 

0.0001523 

0 

0011 

0  1  6 

0.0005239 

0.02167=2 

0.0065520 

0.0053740 

0.0277963 

0 

00i4 

527 

0.0287176 

0.0451802 

0.971282 

; 

0.99999 

99 

0.0071854 

0.C038839 

0 

0042 

^90 

0.0068502 

0.0101437 

0.0013771 

0.0301523 

0 

0010010 

0.00052S5 

0.0005049 

CCLG 

CCLJ 

»«    CCL 

CCDG 

CCDJ 

CCS 

CCD 

•»  CDITZ 

«"    CCJ 

CCf'G 

CCMJ 

CCMT 

CCM 

CXCP 

CXCL 

cxsps 

CXCLE 

GCMGKC 

CCKJMC 

CCHTMC 

«»  CCMMC 

CLLG 

CLLJ 

"     CLL 

CNJ 

•   CNIMC 

«     CCY 

CBGR 

CBGL 

CBJR 

CBJL 

CBR 

CBL 

CPMBR 

CPMBL 


ALPHA=0 

0.4070°3 

222529 

620622 

0053740 

0277o„3 

0C44527 

02S7176 

0451302 


0 

0 

0 

0 

0 

0 

0 

0 

-0.216528 
-0.222529 

0.004300 
-0.434258 

0.531889 

0.697335 

0.236395 

0.309927 
-0. 114755 
-0. I66807 

0.004800 
.276852 

O.OOCOCO 

0.000000 

O.OOCOOO 

o.cooooo 

0.000000 
0.000000 
.201760 
.201760 
.120264 
.120264 
322024 
.322024 
.511457 
.511457 


-0. 


ALPHA 
0.078903 
0.017453 
0.0O6356 
0.0071954 
0.0038339 
0.0042190 
0Cc8502 


0.010143 

-0.020516 

-0.017453 

0.017453 

-0.02C516 

0.260017 

0.394053 

0.115563 

0.175135 

-0.000790 

-0.0130O0 

0.012000 

-0.000790 

0.000000 

0.000000 

0.000000 


0.000000 
0.000000 
0.C35S23 
0.035823 
0.008727 
0.008727 
0.044549 
0.044549 
0.462342 
0.41.2342 


0.0013771 
0.00C1523 
0.0010010 
0.0005285 
0.0005D49 


0.000000 
0.000000 


TABULATED  TOTAL  COEFFICIENTS  FOR  COMPOSITE  CASE   1 


ALPHA 
10.000000 
-9.000000 
-8.000000 
-7.000000 
-6.000000 
-5.0000CO 
-4.000000 
-3.000000 

oocooo 

000000 
0.000000 
1 .000000 
2.000000 
3.000000 
4.000000 
5.000000 


■1. 


CCL 

-0.3339359 

-0.2375801 
-0.1412243 
-0.0448685 
0.0514873 
0.  1478431 
0.2441989 
0.3405547 
0.4369105 
0.53226o2 
0.62O6220 
0.7259778 
0.8223336 
0.9186894 
1 .0150452 
1.1114006 


CCL"»2 
0.1115131 
0.0564443 
0.0100463 

0.0020132 
0.0026509 
0.0218576 
0.0S96331 
0. 1159775 
0.1«08907 
0.2842729 
0. 2064239 
0.5270438 
0.6762326 
0.84-0003 
1 .0202164 
1.2352104 


CCM(MC) 
-0.2000485 
-0.2697289 
-0.2705:°3 
-0.2712190 
-0.2721100 
-0.272O004 
-0.2736908 
-0.2744812 
-0.2752715 
-0.27o0619 
-0.2763523 
-0.277o427 
-0.2784330 
-0. 2702224 
-0.2800128 
-0. 2808042 


CLL 
0.000 
0.000 

0.000 

0.03: 

0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 
0.000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

ooco 

0000 
0000 


CDITZ 
0.0057628 
0052130 
0036533 
0010337 
0024058 
0070851 
0126844 
0i92°25 
0269125 
0355414 
0451802 
0558239 
0674874 
0901553 
0?3S342 
1085224 


OCT 

1  .0057621 

1 .0052128 

1 .003o526 

1 .0010834 

9075042 

9929148 

9873155 

9807064 

9730874 

9644585 

9548197 

9441710 

9325125 

919S441 

90<>lo57 


0.89147 


Oil 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 

0.0000000 

0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
O.CC5000O 
0.0000000 
0.0000000 


CN 
0.0000000 

0000000 
,0000000 
0000000 

0000000 

0000000 
,0000000 
,0000000 
,0000000 

OOOCOOO 
,0000000 
,0000000 
,0000000 
,0000000 
,0000000 
,0000000 


CCV 

0.0000000 
0.0000000 

o.cooooco 

0.0000000 

o.ocooooo 

0.0000000 
0.0000000 
0.0000000 

o.oooocoo 

0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 
0.0000000 


100 


6 

000000 

K 

1 

2077560 

1 

4586744 

-0 

2815945 

0 

0000000 

II 

0 

1242206 

0 

8757794 

a 

0 

0000000 

0 

oooocoo 

0 

oooocoo 

oococo 

# 

1 

iC'.ii2'; 

1 

7007084 

-0 

2823849 

0 

0000000 

»< 

0 

140=285 

0 

85=0714 

« 

0 

0000000 

0 

oooooco 

0 

oooocoo 

8 

000000 

M 

1 

<;006o79 

1 

96I30°4 

-0 

2831753 

0 

0000000 

tt 

0 

1586464 

0 

8413535 

M 

0 

0000000 

0 

oooocoo 

0 

oooooco 

Q 

C  0  C  0  0  0 

H 

1 

24047=5 

-0 

283=656 

0 

0000000 

« 

0 

1773741 

0 

8226258 

W 

0 

0000000 

0 

oooocoo 

c 

oooocoo 

10 

OOCDDO 

K 

1 

59:i7Q7 

2 

53S2214 

-0 

2847=01 

0 

COOOGOO 

N 

0 

1=71113 

0 

8028882 

M 

0 

oocoooo 

0 

oooooco 

0 

ocooooo 

11 

000003 

H 

1 

t8°5:5i 

2 

85452S4 

-c 

2855464 

c 

oooooco 

M 

0 

21785=3 

0 

7821407 

H 

0 

ocooooo 

0 

oooooco 

0 

OOOOCJO 

i; 

000000 

M 

1 

7853906 

3 

18=4045 

-0 

2863368 

0 

oococoo 

M 

0 

23=6168 

0 

7603832 

K 

0 

0000000 

0 

oocoooo 

0 

oooooco 

13 

ODCOOO 

It 

1 

8822460 

54284=5 

-0 

2871272 

0 

0000000 

¥ 

0 

2623841 

0 

7370159 

14 

0 

0000000 

0 

ocooooo 

0 

OCOOOOO 

K 

ococoo 

n 

1 

9?Sc02i 

7 

914So74 

-0 

287=176 

c 

0000000 

K 

0 

2861612 

0 

7138388 

M 

0 

0000000 

0 

oocoooo 

0 

oooooco 

15 

030000 

n 

0;-°578 

4 

3054495 

-0 

2S87079 

0 

0000000 

M 

0 

3109483 

0 

68=051o 

It 

0 

0000000 

0 

ocooooo 

0 

OOOOOCO 

lb 

0  0  0  C  C  0 

M 

2 

17i:U2 

4 

7146053 

-0 

23=4=83 

c 

ODOOCOO 

N 

0 

3367453 

0 

6o32546 

H 

0 

0000000 

0 

oocoooo 

0 

oooooco 

17 

ooocco 

«• 

2 

26766=7 

5 

1423254 

-0 

2=02SS7 

0 

0000000 

x 

0 

3635521 

0 

6364478 

M 

0 

ocooooo 

0 

oooooco 

0 

OCOOOOO 

18 

ODOCOO 

M 

2 

:6^o:5i 

5 

5£S6;45 

-0 

2 

M07  =  0 

0 

0000000 

M 

0 

3=13689 

0 

6C86311 

W 

0 

0000000 

0 

oocoooo 

0 

oocoooo 

1? 

000000 

M 

2 

4603815 

^ 

0534763 

-0 

2 

=186=4 

0 

0000000 

M 

0 

4201=55 

0 

5798045 

» 

0 

oooooco 

0 

oooocoo 

0 

OOOOOCO 

20 

000000 

M 

2 

55^.73d9 

6 

53c=034 

-0 

2 

>2o5=8 

0 

0000000 

M 

0 

4500320 

0 

549=679 

H 

0 

oooocoo 

0 

ocooooo 

0 

0000000 

21 

000000 

M 

2 

6530°:'; 

7 

0336=85 

-0 

2 

>34502 

0 

0000000 

*l 

0 

4808784 

0 

5191215 

)» 

0 

0000000 

0 

oooocoo 

0 

oooocoo 

22 

000000 

M 

2 

74'=<;488 

7 

5594bS3 

-0 

2 

=42405 

0 

0000000 

M 

0 

6127347 

0 

4872053 

N 

0 

0000000 

0 

oooooco 

0 

oooocoo 

«.o 

000000 

M 

2 

8458042 

8 

0986013 

-0 

2 

=  50310 

0 

0000000 

« 

0 

5456008 

0 

4543==1 

M 

0 

ocooooo 

0 

0000000 

0 

oooooco 

2i 

000000 

M 

2 

942U06 

8 

O563082 

-0 

2 

=58213 

0 

0000000 

H 

0 

5794769 

0 

4205230 

H 

0 

0000000 

0 

0000000 

0 

oooooco 

25 

000000 

M 

; 

0385160 

9 

2325792 

-0 

2 

=66117 

0 

0000000 

H 

0 

6143628 

0 

3856372 

H 

0 

oooooco 

0 

oooocoo 

0 

oooocoo 

26 

000000 

M 

3 

1348715 

9 

8274183 

-0 

2=74021 

0 

ocooooo 

N 

0 

650258O 

0 

3497413 

H 

0 

oooocoo 

0 

oooocoo 

0 

oocoooo 

27 

000000 

H 

3 

2312270 

10 

4408331 

-0 

2=81924 

0 

0000000 

M 

0 

6871643 

0 

3128350 

»t 

0 

oooocoo 

0 

oooocoo 

0 

oooocoo 

:8 

000000 

M 

3 

3275833 

11 

0728102 

-0 

2989828 

0 

0000000 

N 

0 

7250799 

0 

2749200 

1* 

0 

oooocoo 

0 

oooooco 

0 

oooocoo 

29 

000000 

tt 

3 

4239368 

11 

72335b2 

-0 

299  77  32 

0 

0000000 

* 

0 

7640054 

0 

235=945 

M 

0 

oooocoo 

0 

oooooco 

0 

oooooco 

50 

000000 

" 

3 

5202951 

12 

3924770 

-0 

3005036 

0 

0000000 

X 

0 

8039407 

0 

1960592 

" 

0 

0000000 

0 

0000000 

0 

0000000 

«   SECOND  RUN  FOR  STABILITY  DERIVATIVE  CASE   • 
STABILITY  DERIVATIVE  DATA  FOR  FUNDAMENTAL  CASE   1 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO  YAHING.  CLLR  =    0.0001168 
YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG .  CN(R)  MAY  BE  CALCULATED  AS  FOLLOWS 

CN(R1  =  CNR»R  ♦  CNR2"R>'«2 


WHERE    CNR  = 
CNR2  = 


0.O0CO01O49 
0. OCOOOOO 


SIDE  FORCE  COEFFICIENT  DUE  TO  YAWING,  CY(R)  MAY  BE  CALCULATED  AS  FOLLOWS 
CY(R)  =  CYRiR  ♦  CYR2«R"-2 


WHERE    CYR  = 
CYR2  = 


0.000000000 
0.0000000 


STABILITY  DERIVATIVE  DATA  FOR  FUNDAMENTAL  CASE   2 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO  YAWING.  CLLR  =    0.0000436 
YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG.  ON ( R )  MAY  BE  CALCULATED  AS  FOLLOWS 

CN(R)  =  CNR»R  ♦  CNR2'<R»«2 


WHERE    CNR  = 

CNR2  = 


0.000000034 
0.0000000 


SIDE  FORCE  COEFFICIENT  DUE  TO  YAWING.  CY(R)  MAY  BE  CALCULATED  AS  FOLLOWS 
CYCR)  =  CYR»R  ♦  CYR2»R«»2 


WHERE   CYR  = 
CYR2  = 


0.000000000 
0.0000000 


ROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO  YAWING.  CLLR  =    0.0000344 
YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG-  CNCR)  MAY  BE  CALCULATED  AS  FOLLOWS 

CNtR)  =  CNRvR  ♦  CNR2"R''»2 


WHERE    CNR  = 
CNR2  = 


-0.000000100 
0. OOOOCOO 


SIDE  FORCE  COEFFICIENT  DUE  TO  YAWING.  CYCR)  MAY  BE  CALCULATED  AS  FOLLOWS 
CY(R)  =  CYR»R  ♦  CYR2«R»"2 


WHERE   CYR  = 
CYR2  = 


0.000000000 
0.0000000 


ROLLING  MOMENT  COEFF  DERIVATIVE  DUE  TO  ROLLING.  CLLP  =   -0.0066949 

YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  ROLLING-  CN(P)  MAY  BE  CALCULATED  AS  FOLLOWS 

CN(P)  =  CNP2«P»«2 
WHERE   CNP2  =    0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING.  CY(P)  MAY  BE  CALCULATED  AS  FOLLOWS 
CYCP)  =  CYP2"P«»2 
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WHERE  CYP;  =    0.0000000 
STA21LITV  DERIVATIVE  DATA  FOR  C0MP03ITE  CASE   I 


Atl)       A(r)       A!3) 
0.000000  lO.OOOOOC  10.000000 


FUNDAMENTAL  CASE  FACTORS 

Alii  A(5j       AI6)       A(7) 

0.000000   0.000000   0.000000   0.000000 


A(8) 
0.000000 


A(?) 

0.000000 


A(10) 
0.000000 


LIFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING  ABOUT  XCG.  CLO  =   0.089678 
PITCHING  MOMENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN  DUE  TO  PITCHING  ABOUT  XCG .  CMO  =  -0.038<ii: 
PITCHING  MOMENT  COEFF  DERIVATIVE  ABOUT  XMC  DUE  TO  PITCHING  ABOUT  XCG.  CMQMC  =  -0.016065 


ROLLING  MOMENT  CCEFF  DERIVATIVE  DUE  TO  ROLLING.  CLLP 


-0.0066969 


YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  ROLLING.  CN(P)  MAY  BE  CALCULATED  AS  FOLLOWS 

CNiP)  =  CNP«P  •  CNP:»P»»2 
WHERE    CNP  =  CN°0  ♦  CNPA-ALPHA 

CNPo  =  -o.oooisri 

CNPA  =   -O.OOOOoOl 

CNo;  =   0.0000000 

SIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING.  CV(P)  MAY  BE  CALCULATED  AS  FOLLOWS 

CY(=)  =  CYP>P  ♦  CVP2»P""2 

WHERE    CYP  =  CYPO  •  CVPA«ALPHA 

CYPO  =    O.OCCOOCO 

CYPA  =    0.0000000 

CYPC  =    0.0000000 

ROLLING  MOMENT  COEFF  DERIVATIVE  DUE  TO  YAWING  ABOUT  XCG.  CLLR  MAY  BE  CALCULATED  AS  FOLLOWS 

CLLR  =  CLLRO  •  CLLRA'ALPHA 
WHERE   CLLRO  =     0.0007805 
CLLRA  =     O.OOOllc.8 

YAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG.  CN(R)  MAY  BE  CALCULATED  AS  FOLLOWS 

CN(R)  =  CNR"R  ♦  CNR2»R«i<2 
WHERE    CNR  =  CNRO  ♦  CNRA»ALPHi  •  CNRA; "ALPHA" «2 


AND 


CNRO  =    -0, 

.oocciro 

CN5A  =    -0 

.  0  0 : 0  D :  5 

CNPA2  =     0 

.0000010 

CNfi:0  ♦  CNR2A' 

•ALPHA  ♦ 

CNR20  =     0 

.0000000 

cnr;a  =    0 

.0000000 

CNR2A2  =     0 

.0000000 

cnr:a2»alpha«»2 


SIDE  FORCE  COEFFICIENT  ABOUT  XMC  DUE  TO  YAWING  ABOUT  XCG-  CY(R)  MAY  BE  CALCULATED  AS  FOLLOWS 

CY  (  R  )  =  CYR^S  ♦  C YR" "R f  * "^ 
WHERE    CVR  =  CYRO  ♦  CYRA-ALPHa" ♦  CYRAr-ALPHA"*; 


CVRO 

0 

.0000000 

CVR  A 

0 

.0000000 

CYRAC 

=     0 

.0000000 

CYR20  ' 

■  CYR2A- 

'ALPHA  ♦ 

CYR20 

0 

.0000000 

CYRCA 

0 

.0000000 

CYR2A2 

0, 

.0000000 

VARIATION  OF  STABILITY  TERMS  WITH  ANGLE  OF  ATTACK 


"X"' 

i-«' 

'«►'««'>■'» 

»«.«, 

■  «►,»,!.«»«»««.. 

»»»». 

,«►«,«,,, 

«"«• 

•«" 

ALPHA 

CNP 

CNP2 

CYP 

CYP2 

CLLR 

CNR 

CNR2 

•10, 

,000000 

H 

0, 

,0002679 

0. 

,0000000 

M 

0. 

,0000000 

0, 

,0000000 

n 

-0. 

,0003880 

0. 

,0001273 

0, 

,0000000 

-9. 

,000000 

H 

0. 

,0001873 

0, 

,0000000 

H 

0. 

,0000000 

0. 

,0000000 

N 

-0. 

,0002712 

0. 

,0001038 

0, 

COSCCOO 

-8. 

,000000 

• 

0. 

,0001277 

0. 

0000000 

M 

0. 

,0000300 

0. 

,0000000 

M 

-0. 

,0001563 

0. 

,0000826 

0, 

,coocooa 

-7, 

,000000 

H 

0. 

,0000676 

0. 

0000000 

M 

0, 

,0000000 

0, 

,0000000 

H 

-0. 

,0000375 

0. 

003Do32 

0, 

,0000000 

-6, 

,000000 

" 

0, 

,0000075 

0, 

0030000 

m 

0, 

.0000000 

0, 

.0000000 

M 

0. 

,0000796 

0. 

,0000660 

0. 

,0000000 

-5, 

,000000 

K 

-0, 

,0000526 

0. 

,0000000 

H 

0, 

,0000000 

0, 

.0000000 

H 

0. 

,0001962 

0. 

,0000309 

0. 

,0000000 

-6  , 

,000030 

* 

-0, 

,0001127 

0. 

,3000000 

M 

0, 

.0000000 

0, 

.0000000 

M 

0. 

,0003131 

0, 

,0000179 

0, 

,0000000 

-  3  , 

,000000 

*i 

-0, 

,0001728 

0. 

,0003000 

H 

0, 

.0003000 

0, 

.0030000 

H 

0. 

,0006299 

0, 

,0000070 

0, 

,0000000 

-2  . 

.000000 

M 

-0, 

,0002329 

0, 

,0300300 

" 

c. 

,0003000 

0, 

.0000000 

It 

0, 

.0005663 

-0, 

,0003317 

0, 

,0000000 

-1, 

.000000 

M 

-0, 

.0002930 

0, 

,0000000 

n 

0, 

,0000000 

0, 

.0000000 

It 

0. 

,000do36 

-0, 

.oooo:s6 

0, 

,0000000 

0 

.000030 

M 

-0, 

.00CSS31 

0, 

,0000030 

M 

0 

.0003030 

0 

.0000000 

M 

0, 

.0C078C5 

-0 

.0000130 

0, 

,0000000 

1 

.oococo 

M 

-0, 

,0006132 

0, 

,0000000 

M 

0 

.0003000 

0, 

.0000000 

M 

0, 

.00G8O73 

-0, 

,0000155 

0, 

,0000000 

2  , 

.000000 

* 

-0, 

,0006733 

0, 

,0000000 

" 

0 

.0000000 

0, 

.0000000 

« 

0, 

.0010162 

-0 

.0030159 

0, 

,0000000 

3 

.000000 

u 

-0, 

.00C5336 

0, 

,0030000 

It 

0 

.0000000 

0. 

.0000000 

II 

0, 

.0011310 

-0 

.0000162 

0, 

,0000000 

6 

.003000 

" 

-0 

.0005935 

0, 

,0000000 

M 

0 

.0000000 

0 

.0000000 

n 

0 

.0012670 

-0 

.0000106 

0 

,0030000 

5 

.000000 

N 

-0, 

.000c.53o 

0, 

.0030000 

N 

0, 

.0000000 

0 

.0000000 

II 

0, 

.0013d67 

-0 

.0030065 

0, 

,0003300 

6 

.000000 

m 

-0 

.00C7137 

0, 

,0000000 

M 

0 

.0000000 

0 

.0000000 

M 

0 

.0016815 

0 

.0000035 

0, 

.0030000 

7 

.000000 

M 

-0 

.0007738 

0, 

,0003000 

M 

0 

.0000000 

0 

.0000000 

li 

0 

.0015986 

0 

.0000136 

0 

.CC0C300 

8 

.000000 

w 

-0, 

.0008339 

0, 

.occoooo 

M 

0 

.0000000 

0 

.0000000 

M 

0, 

.0017152 

0, 

.0000258 

0 

, ocooooo 

0 

.000000 

It 

-0, 

.0008»60 

0 

.0000000 

H 

0 

.0000000 

0 

.0000000 

M 

0, 

.0018321 

0, 

.0000601 

0 

.0003000 

10 

.000000 

w 

-0 

.0009561 

0, 

.0000000 

M 

0 

.0000000 

0 

.0000000 

w 

0, 

.0019689 

0 

.0000565 

0, 

.0030300 

11 

.000000 

M 

-0 

.0010162 

0 

,0000000 

M 

0 

.0000000 

0 

.0000000 

H 

0 

.0020658 

0 

.0000750 

0 

,0030000 

12 

.ooocoo 

M 

-0 

.0010763 

0 

.0000300 

H 

0 

.0000000 

0 

.0000000 

M 

0 

.0021826 

0 

.0000956 

0 

.0000000 

13 

.000000 

H 

-0 

.0011366 

0, 

.0000000 

M 

0 

.0000000 

0 

.0000000 

H 

0, 

.0022995 

0 

.0001182 

0, 

.0300000 

16 

.000000 

M 

-0 

.0011965 

0 

.ooocooo 

M 

0 

.0000000 

0 

.0000000 

n 

0 

.0026163 

0 

.0001630 

0 

.0300000 

15 

.000000 

M 

-0 

.0012566 

0, 

.0000000 

N 

0 

.0000000 

0 

.ooocooo 

H 

c. 

.0025332 

0, 

.0001699 

0 

.ococooo 

16 

.000000 

K 

-0 

.0013167 

0 

.0000000 

H 

0 

.0000000 

0 

.0000000 

II 

0 

.0026500 

0 

.0001989 

0 

.0000000 

17 

.000000 

H 

-0 

.0013768 

0 

,0000000 

u 

0 

.0000000 

0 

.0000000 

II 

0, 

,0C27o69 

0 

.0002299 

0 

.0000300 

18 

.000000 

" 

-0 

.0016369 

0 

.ooococo 

It 

0 

.0000000 

0 

.0000300 

H 

0, 

.002SS37 

0, 

.0002631 

0 

.ococooo 

19 

.000000 

« 

-0 

.0C16»50 

0 

.0000300 

" 

0 

.0030000 

0 

.0300000 

H 

0, 

,0030006 

0 

.0002986 

0 

,0300000 

20 

.000000 

H 

-0 

.0015551 

0 

.ococooo 

" 

0 

.0000300 

0 

.occoooo 

II 

0, 

.0031176 

0 

.C0C3358 

0, 

.ccoocoo 

21 

.000000 

H 

-0 

.001615: 

0, 

.0003000 

II 

0 

.0000000 

0 

.0030000 

H 

0, 

.0032363 

0, 

.0003752 

0, 

.0000000 

•>^ 

.000000 

1* 

-0 

.001675. 

0 

.0300000 

» 

0 

.0000000 

0 

.0003000 

M 

0, 

.0033511 

0, 

.0006168 

0, 

.ocooooo 

23 

.000000 

a 

-0 

.001735'. 

0 

.0000000 

« 

0 

.0000000 

0 

.0000000 

M 

0, 

.0036680 

0, 

.0006606 

0 

.0000000 

26 

.000000 

M 

-0 

.0017<'55 

0 

.0000000 

« 

0 

.0000000 

0 

.occoooo 

H 

0, 

.0035868 

0, 

.0005062 

0, 

.0030000 

25 

.000000 

H 

-0 

.0018556 

0 

,0000000 

H 

0 

.0000000 

0 

.0000000 

M 

0, 

,0037017 

0, 

.0005561 

0, 

.0000000 

26 

.000000 

M 

-0 

.0010157 

0 

.0000300 

H 

0 

.0000000 

0 

.0000000 

M 

0, 

,0038185 

0, 

.0006060 

0, 

.0000000 

27 

.000000 

II 

-0 

.0019758 

0 

.0000000 

» 

0 

.0000000 

0 

.0000000 

H 

0, 

,0039353 

0, 

.0006561 

0, 

.ooocooo 

28 

.000000 

H 

-0 

.0020359 

0 

.0000300 

M 

0 

.0000000 

0 

.0000000 

M 

0, 

.0060522 

0, 

.0007102 

0, 

.0000000 

29 

.000000 

H 

-0 

.0020060 

0 

.0000000 

M 

0 

.0000000 

0 

.0000000 

M 

0, 

.0061600 

0, 

.O0C7665 

0 

.0000000 

30 

.000000 

■ 

-0 

.0021561 

0 

.0000000 

« 

c 

.0000000 

0 

.0000000 

» 

0, 

.0062859 

0, 

.0008268 

0, 

.0000000 

"" 

THE 

PROGRAM 

HAS 

REACHED 

NORMAL 

TERMINATION 

MM 

H 

THE 

PROGRAM 

HAS 

REACHED 

NORMAL 

TERMINATION 

ail 
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JETFLAP  INPUT  DATA  FILE  TAPER.DAT 

TAPERED  SWEPT  WING,  AR=8.0,  SWEEP  ANGLE  45,  10X10  W/SEMI-CIRCLE  SPACING 

50.0000    20.000    0.0        10.43      10.43 

1001000001020000 

.993844   .969372   .921032    .850012   .758062   .647446   .520888   .381504 

.232726    .078217 

01010101010101010101 

10 

.0        .024472    .095492    .206107    .345492    .5000     .654508    .793893 

.904508    .975528 

8.0       45.0      0.45 

9 
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PROGRAM  OUTPUT  DATA  FOR  TAPER.DAT 


TAPERED  SWEPT  WING.  AR=8.0.  SWEEP  ANDGLE  45.  10X10  W/SEMI-CIRCLE  SPACING 


USED 

INPUT 

AREA 

= 

0 

.500000 

5C.C0C000 

SPAN 

= 

2 

.000000 

co.ocoooo 

CREF 

= 

0 

.;6io?o 

0.000000 

X"C 

= 

1. 

.043000 

10.430000 

CMAC 

= 

0 

.:61796 

r. 617941 

ARATIO 

= 

e 

.000000 

8.000000 

XCG 

= 

1, 

.043000 

10.430000 

NR0W3 

= 

10 

10 

NCASES 

= 

1 

1 

ISVMM 

= 

0 

0 

IPRINT 

= 

0 

0 

JETFLG 

= 

1 

1 

IGTVPE 

s 

-> 

IHINGE 

= 

0 

0 

NUMBER  OF  WING  ELEMENTS 

NUMBER  CF  JET  ELEMENTS 

TOTAL  NUMBER  OF  ELEMENTS 


'  100 
=  0 
=  100 


Element  geometry  data  and  Fundamental  case  data  for  fundamental  case  l 


«<t 

SECTION   1  M. 

iM   Y  =   0.9 

=3844   DELTA 

=   0.006156   XLEAD  = 

1.040966 

XTRAIL 

1 

.1=7306   CHORD  =   0.1563 

40   TANLE  = 

1.047412 

I.SG 

elements 

NW  =  10 

TWIST  =   0. 

oooooo 

HL  =   0.000000      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.024472 

0.0954=2 

0.206107 

0.345492 

0.500000 

0.654503 

0.7=3893 

0.904508 

0.975528 

XI 

1 .040°66 

1.044792 

1.0558=5 

1.073189 

1.094980 

1.119136 

1.1432=2 

1.165083 

1.182377 

1.1=3430 

DEL 

0.0:447C 

0.071020 

0.110=15 

0.13=385 

0. 154508 

0.154508 

0.13=:S5 

0.110615 

0.071020 

0.024472 

EPS 

1 .000000 

1 .000000 

1 .003030 

l.OOOCOO 

1.000000 

1.000000 

l.OOOOCO 

1 .000000 

1 .000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

CO 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAG  NO  JET 

l»M 

SECTION   :  «■ 

■^   Y  =   0.96=372   DELTA 

=   0.0183 

16   XLEAD  = 

1.015334 

XTRAIL  = 

1.176315   CHORD  =   0.160981   TANLE 

=   1.047412 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   0.000000      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.024472 

0.0=5492 

0.206107 

0.34549; 

0.500000 

0.654508 

0.793893 

0.904508 

0.975528 

XI 

1.C1E334 

1.019275 

1.030706 

1.04S513 

1.070951 

1.0=5824 

1.120.j  =  7 

1.143135 

1.160=42 

1.172375 

DEL 

0.0C447: 

0.071020 

O.IIO0I5 

0.13=385 

0.154508 

0.154508 

0.139385 

O.IIO0I5 

0.071C20 

0.024472 

EPS 

1.000000 

1.000000 

I. OOOOOO 

1 .000000 

1.000000 

1.000000 

1.000000 

1.000000 

l.OOOOCO 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOOOOO 

O.COOOOO 

0. OOOOCO 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

MM 

SECTION   3  «> 

i»   Y  =   0.9 

21032   DELTA 

=   0.0300 

24   XLEAD  = 

0.964702 

XTRAIL  = 

I.  134851   CHORD  =   0.170149   TANLE 

=   1.047415 

ING 

ELEMENTS 

NW  =  10 

TWIST  =   C. 

OOOOOO 

HL  =   0.000000      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.024472 

0.0=5492 

0.206107 

0.345492 

0.500000 

0.O54508 

0.7938=3 

0.904503 

0.975528 

XI 

0.964702 

0.=6S8b5 

0. =80=49 

0.9==770 

1.023487 

1.04=776 

1  .07(jCo6 

1  .099782 

I.II80O3 

1.130bS7 

DEi. 

0.024472 

0.071C20 

C.110o!5 

0.139385 

0.154503 

0.154508 

0.139385 

0.110615 

0.071020 

0.024472 

E^S 

1.000000 

1.000000 

1.000000 

1.030000 

1 .000000 

1 .000000 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

o.oooooo 

0.000000 

0.000000 

0.000000 

O.OOOOOO 

0.000000 

0.000000 

0.000000 

O.OOOOOO 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

IC 

10 

THIS  ROW 

HAS  NO  JET 

Ml* 

SECTION   4  «» 

■•   Y  =   0.850012   DELTA 

=   0.0409 

96   XLEAD  = 

0.890314 

XTRAIL  = 

1.073933   CHORD  =   0.18 

3618   TANLE 

=   1.047413 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   O.OOOOOO      THETA  S  =   0. 

,000000 

XB 

O.OOOOOO 

0.024472 

0.0=54=2 

0.206107 

0.345492 

0.500000 

0.654508 

0.7938=3 

0. =04508 

0.975528 

XI 

0.890314 

0.894808 

0.907S48 

0,928159 

0.953753 

0.982123 

1.010494 

1.036088 

1.056399 

1.0c=439 

DEL 

0.024472 

0.071020 

0.110615 

0.13=385 

0.154508 

0.154508 

0.13=385 

O.llOt.15 

0.071020 

0.024472 

E^S 

1 .OOOOOC 

1 .000000 

1.000000 

1.000000 

l.OOOCOO 

1.000000 

1.000000 

1.000000 

1  .OOCCOO 

l.OOOOCO 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOOOOO 

O.OOOOOO 

0. OOCCOO 

TYPE 

20 

10 

10 

10 

10 

IC 

10 

10 

10 

10 

THIS  ROW 

HAG  NO  JET 

MM 

SECTION  5  «• 

■•   Y  =   0.758062   DELTA 

=   0.050= 

54   XLEAD  = 

0.794005 

XTRAIL  = 

0.9=5062   CHORD  =   0.201057   TANLE 

=   1.047413 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   O.OOOOOO      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.024472 

0.095492 

0.206107 

0.3454=2 

0.500000 

0.654503 

0.793895 

0.904508 

0.975528 

XI 

0.794005 

0.798925 

0.813204 

0.835444 

0.863468 

0.8=4533 

0.9255=8 

0.953622 

0.975862 

0.990142 

DEL 

0.024472 

0.071020 

0.110615 

0.139385 

0.154503 

0.154508 

0.13=385 

0.110615 

0.071020 

0.024472 

E-3 

1.000000 

1.000000 

1.000000 

I .000000 

1.000000 

l.OOOOCO 

1  .000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

-  M 

SECTION   6  «• 

i«   Y  =   0.6 

47446   DELTA 

=   0.05=6 

62   XLEAD  = 

0.678144 

XTRAIL  = 

0.900180   CHORD  =   0.22 

203t>   TANLE 

=   1.047414 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   0.000000      THETA  S  =   0. 

ooooco 

XB 

0. 000000 

0.024472 

0.0954=2 

0.206107 

0.345492 

0.500000 

0.654508 

0.793893 

0. =04508 

0.975528 

XI 

0.678144 

0.683577 

0.69=346 

0.723907 

0.754856 

0.789162 

0.823468 

0.854417 

0.878=77 

0.8=4746 

DEi. 

0.024472 

0.071020 

0.110615 

0.139335 

0.154508 

0.154508 

0.13=385 

0.1100:5 

0.071020 

0.024472 

EPS 

1.000000 

1.000000 

1. OOOOOO 

I. OOOOOO 

l.OOOCOO 

1.000000 

l.OOOCOO 

1.000000 

1.000000 

l.OOOCOO 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.OOOOOO 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

M  N 

SECTION   7  «> 

1"  y  =  0.5 

20888   DELTA 

=   0.066896   XLEAD  = 

0.545585 

XTRAIL 

0 

.791624   CHORD  =   0.C46038   TANLE  s 

1 .047414 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   0.000000      THETA  S  =   0. 

OOOOOO 

XB 

0.000000 

0.024472 

0.0=54=2 

0.206107 

0.J45492 

0.500000 

0.654508 

0.79J893 

0.904508 

0.975528 

XI 

0.545585 

0.55U06 

0.59=080 

0.596295 

0.63C590 

0.668604 

O.7O00I9 

0. 740=13 

0.768129 

0.785603 

DEL 

0.024472 

0.071020 

0.110615 

0.13=385 

0.154508 

0.154508 

0.139385 

0. 1 10615 

0.071020 

0.024^72 

EPS 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

O.OOOOOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

IMM 

SECTION   8  M«M   Y  =   0.3 

81504   DELTA 

=   0.072488   XLEAD  r 

0.399593 

XTRAIL  = 

0.672066   CHORD  =   0.27 

24  73   TANLE 

=   1.047414 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   0.001 

3000      THETA  S  =   0. 

,000000 

XB 

0.000000 

0.024472 

0.0=5492 

0.206107 

0.345492 

0.500000 

0.654508 

0.793893 

0.904508 

0.975523 

XI 

0.3=95=3 

0.4062B0 

0.42Eel2 

0.455751 

0.493730 

0.535829 

0.57792= 

0.615907 

0.646047 

0.6653=3 

DE. 

0.024472 

0.071020 

0. IIC0I5 

0.13=385 

0.154508 

0.154508 

0.139385 

O.IIO0I5 

0.071020 

0.024472 

EPS 

1 .000000 

1 .000000 

1 .000000 

1 .000000 

1.000000 

1 .000000 

l.OOOCOO 

l.OOCOOO 

l.OOOCOO 

1. OOOOOO 

BETA 

0.000000 

0.000000 

O.OOOOOO 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

O.COOOOO 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

IMM 

SECTION   9  MM.   Y  =   0.2 

32726   DELTA 

=   0.0762 

90   XLEAD  • 

0.243760 

XTRAIL  ■ 

0.544450   CHORD  =   O.J00690   TANLE 

s   1.047414 

IING 

ELEMENTS 

NW  =  10 

TWIST  =   0. 

OOOOOO 

HL  =   0.000000     THETA  S  =   0. 

,000000 

XB 

0.000000 

0.024472 

0.095492 

0.206107 

0.345492 

0.500000 

0.654508 

0.793893 

0.904508 

0.975528 

XI 

0.243760 

0.251119 

0.272474 

0.305735 

0.347646 

0.394105 

0  .440564 

0.482476 

0.515737 

0.5370=2 

DEL 

0.024472 

0.071020 

0.110615 

0.13=385 

0.154503 

0.154508 

0.139385 

O.llOolS 

0.071020 

0.024472 

EPS 

1.000000 

I. 000000 

1.000000 

1.000000 

1 .000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

104 


THIS  ROW  HAS  NO  JET 


»»«  SECTICN  10  »•"   V  =   0.078C;7   DELTA 

=   0.078C 

1«   XLEAD  = 

0.081?26 

XTRAIL  = 

0.ill«19   CHORD  =   0.32 

99='3   TANLE 

=   1.067616 

WING  ELEMENTS 

NW  =  10 

TWIST  =   0. 

000000 

ML  =   0.000000      THETA  S  =   0. 

000000 

XB 

O.OCOOOD 

0.  0C6iS72 

0.0°56O2 

0.206107 

0  .3<i5402 

0.500000 

0.656508 

0  .  793893 

0. =06508 

0.975528 

XI 

0.021^:6 

0.0°0001 

0.115437 

O.K?<>39 

0.195°36 

0.2<.o922 

0.2°7=>09 

0.363905 

0.  380607 

0.603863 

DEL 

o.oz'-ct: 

0. 071020 

0.110615 

0.13?385 

0.156508 

0.15^^508 

0.139385 

0. 110615 

0.071020 

0.026672 

E  =  S 

1 .OOjOCO 

l.OOOCOO 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1.000000 

1 .000000 

1.000000 

BETA 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

C. 000000 

0.000000 

0.000000 

0.000000 

0.000000 

TYPE 

20 

10 

10 

10 

10 

10 

10 

10 

10 

10 

THIS  ROW 

HAS  NO  JET 

SECTIONAL  JET  BLOWING  COEFFICIENTS 


ROM 

CMU 

1 

0. 

.000000 

0, 

.000000 

3 

0, 

.000000 

6 

0, 

.000000 

5 

0. 

.000000 

6 

0, 

.000000 

7 

0 

.000000 

8 

0, 

.000000 

0 

0 

.000000 

lb 

0- 

.000000 

CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 


SECTION 

1      Y  = 

0.993366 

CHORD  = 

0.156360 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  6 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

WING 

1 

0 

.000000 

0.565735 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

,000000 

2 

0 

.026672 

0.266167 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0, 

.000000 

0 

.000000 

3 

0 

.  0O56O2 

0.0502=8 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

6 

0 

.206107 

0.  020919 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

,000000 

0 

,000000 

0 

.000000 

5 

0 

.365692 

0.011226 

0 

.000000 

0.000000 

o.oooooo 

o.ooocoo 

0.000000 

0 

.DOOOCO 

0 

,000000 

0 

,000000 

0 

.000000 

6 

0 

.500000 

0.006613 

0 

.000000 

0.000000 

0.000000 

0.000000 

0  .  0  C  0  0  Q  0 

0 

.000000 

0, 

,000000 

0 

,000000 

0 

.000000 

7 

0 

.656508 

0.003731 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

,000000 

0 

.000000 

0 

.000000 

8 

0 

.7938=3 

0.001=96 

0 

.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

,000000 

0 

.000000 

0 

.000000 

9 

0 

.9065C8 

0.000927 

0 

.000000 

O.CCGCOO 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

10 

0, 

.975523 

0.000686 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

.0068=6 

0.816765 

4- 

0, 

.009789 

0.563132 

3 

0 

.016683 

0.607101 

6 

0 

.01=578 

0.315266 

5 

0- 

,026672 

0.266167 

,„,,,,,,,,, 

»   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES  '« 

K«y».u..U(. 

Mtf^v»'VUM4«t<MM)>l*t**l*<'>,W 

SECTION 

2     Y  = 

0.969372 

CHORD  = 

0.160=81 

I 
WING 

11 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  6 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

0, 

.000000 

0.570113 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

12 

0, 

,026672 

0.320536 

0 

.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0 

,000000 

0. 

,000000 

0 

,000000 

0 

.000000 

13 

0. 

,0966=2 

0.126056 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

. 000000 

0 

■OCOOOO 

0 

.000000 

0 

. 000000 

16 

0. 

,206107 

0.0o6682 

0 

.000000 

o.ooocoo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

,000000 

0 

.000000 

0 

.000000 

15 

0. 

,3656=2 

0 . 033666 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

16 

0, 

,500000 

0.017851 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

17 

0. 

,65'<508 

0.010013 

0 

. 000090 

o.cooooo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

18 

0. 

,793893 

0.005811 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

. 000000 

0 

.000000 

0 

.000000 

19 

0. 

.906508 

0.C03360 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000009 

0 

.000000 

20 

0. 

.975528 

0.0015S3 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0. 

,006396 

0.837965 

-) 

0, 

,00978= 

0.577136 

3 

0, 

,016683 

0.656951 

6 

0, 

,01=573 

0.377306 

5 

0. 

,026672 

0.320536 

»   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES   • 

Mt<)--«>!«i.f 

|^t<«•Kt<wMl4«yt•^M>•*«^My■^M« 

,HMW>'>'M*^<^Wt»!1 

HWM^»WH<<« 

SECTION 

3      Y  = 

0.921032 

CHORD  = 

0.170169 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  6 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  = 

CASE  10 

21 

0. 

,000000 

0, 

,583867 

0 

,000000 

C. 000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

22 

0, 

,026672 

0, 

,361116 

0 

.000000 

0.000000 

0.000000 

0.000000 

o.oooooo 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

23 

0, 

,0=56=2 

0 

,169001 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

. 000000 

0 

.000000 

0 

.000000 

24 

0, 

,206107 

0, 

,086191 

0 

.000000 

o.oooooo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0 

.000000 

0 

.ooocco 

0 

.000000 

25 

0, 

,3656=2 

0, 

,055031 

0 

.000000 

o.oooooo 

0.000000 

0.000000 

o.cooooo 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

26 

0, 

,500000 

0, 

,03=803 

0 

.000000 

0.000000 

0.000000 

0.000000 

o.oocooo 

0 

.000000 

0 

.000000 

0 

.ooccoo 

■  0 

.000000 

27 

0, 

,65-5C8 

0, 

,023b36 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000300 

0 

.000000 

0 

.000000 

c 

.000000 

0 

.000000 

28 

0, 

.  7  =  38  =  3 

0, 

,0168  71 

0 

.000000 

0.000000 

o.oooooo 

0.000000 

o.ooocoo 

0 

.000000 

0 

.000000 

0 

.000000 

0 

,000000 

29 

0, 

,906508 

0 

,  C0S='.2 

0 

.000000 

o.oooooo 

0.000000 

0.000000 

0.000000 

0 

.ooocco 

0 

.000000 

0 

.000000 

0 

.000000 

30 

0, 

,975528 

0 

,006208 

0 

.000000 

o.ooocoo 

0.000000 

o.cooooo 

0.000000 

0 

.000000 

0 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0, 

,0068=6 

0, 

,8o0751 

t- 

0, 

,00=789 

0, 

,59bl«8 

3 

0. 

,016c33 

0, 

.673635 

6 

0, 

,019578 

0, 

.  396686 

5 

0. 

,026672 

0, 

.361116 

HMKMMWitW 

MMMMHMi«MMMM¥«>tttiMHHWM« 

MMffMMttWVfWHMMMMHHHMMM 

•   CHORDWISE  LOADING  FOR  ALL 

FUNDAMENTAL 

CASES   " 

H*>*<H«tyttM 

fHKM*>*<«t<MH««ttJ 

*¥i¥i¥iY  *¥<^Vi 

SECTION 

4      Y  = 

0.850012 

CHORD  = 

0.183618 

I 

XB 

CASE  1 

CASE  2 

CASE  3 

CASE  4 

CASE  5 

CASE  6 

CASE  7 

CASE  8 

CASE  9 

CASE  10 

SI 

0, 

,000000 

0. 

.582767 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0, 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

32 

0. 

,026672 

0 

,  366836 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0. 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

S3 

0, 

,095692 

0, 

.156110 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0, 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

34 

D, 

,206107 

0, 

.090613 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

,000000 

0. 

,000000 

0 

.000000 

0 

.000000 

35 

0, 

,3656=2 

0 

.05=662 

0 

.000000 

0.000000 

0.000000 

0.000000 

0. 000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

,000000 

36 

0, 

,500000 

0 

,063769 

0 

.000000 

o.ooocoo 

0.000000 

0.000000 

o.ooocoo 

0 

,000000 

0, 

,000000 

0 

.000000 

0 

.000000 

S7 

0, 

,656508 

0 

,031802 

0 

.ocooco 

o.oooooo 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

38 

0, 

,7=38=3 

0, 

0^^ 1 Q9 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

S9 

0, 

,906508 

0 

,016177 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0, 

.000000 

0, 

,000000 

0 

.000000 

0 

.000000 

40 

0, 

,975528 

0 

.006920 

0 

.000000 

0.000000 

0.000000 

0.000000 

0.000000 

0, 

.000000 

0, 

.000000 

0 

.000000 

0 

.000000 

DETAILED 

LEADING  EDGE  LOADING 

1 

0, 

,006896 

0 

.859976 

2 

0, 

.009789 

0 

.5=6803 

3 

0. 

.016683 

0 

.675350 

4 

0. 

.01=578 

0 

.39=622 

5 

0, 

.026672 

0 

.366836 

CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 
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SECTION  5      V  =  C. 758062  CHORD  =  0.201057 

I  XB  CACE  1  CACE  2      CASE  I  CACE  <4  CASE  5  CASE  6  CASE  7      CASE  8      CASE  9      CASE  10 

61  0.000000  0.571170  O.OOPODO  0.000000  O.OOOOOC  O.CCOCOO  O.OOOOCC    O.OCOOOG    0.000000    0.000000   o.ooccco 

^.2  0.02<.C72  0.:3'=77J  O.OOCCOO  O.OOOOCO  0.000000  0.0CC0;0  O.CCOrCO    0.000000    O.ODjOCC    O.OOOOOC    o.ooccoo 

63  0.0=5402  0.156167  O.COOOOO  O.OOOOCO  O.OOOOCO  0.000000  O.COOCOO    0.000000    0.000000    0.000000   o.ococco 

6A  O.2O0IO7  0.0918:5  n. 000000  0.000000  0.000000  0.000000  0.030000    0.000000    0.000000    O.OOOOCO    O.OOOOCC 

<;5  0.:<i54o2  0.06000";  'J.OOOCOO  O.OOOOOO  O.OOOOOO  O.CCOCCO  O.OOCCOO    0.000000    0.000000    O.OOCCOO    O.OOCCCO 

66  0.50COCO  C.O^iCrS  O.OOOOOO  0.000000  O.OOCOCO  O.COCCCD  O.OOOOCO    0.000000    0.000000    O.OOOOCO    O.OCCCCC 

67  0.6565CS  o.o::507  O.OOOOCO  O.OOOOCO  O.OOCCCO  o.ooccco  o.cccooo   O.OOOOCO   0.000000   o.ooocoo   o.ococcc 

68  0.7o:6='3  0.02627?  C.OOOOCO  O.OOOQOO  O.OOCCCO  O.OCOCCC  O.OOCCCO    0.000000    O.OOOOCO    O.OOCCCO    o.ooocc: 

69  C.°0i5CS  0.015°:7  O.OOOOCO  O.OOOOOO  O.OOOOCO  O.COCCOO  C.OCCCOO    0.000000    0.000000    O.OCOOOO    O.OOOOCO 

50  0.975528  0.007778  0.000000  O.OCOOOO  O.OOOCOO  O.OOCOCO  0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.0068°6  O.B6J2i8 

2  0.00O789  0.585o6I 

3  0.0I6t8J  0.666981 
6  0.019578  0.392020 

5  0.026672  0.339773 

X   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 

SECTION  6      Y  =  0.667666  CmORD  =  0.222036 

I  XB  CASE  1  CASE  2     CASE  3  CASE  6  CASE  5  CASE  i  CASE  7     CASE  8     CASE  9     CASE  10 

51  0.000000  0.552733  0.000000  0.000000  0.000000  O.OOOOOO  0.000000    O.OCOOOO    O.OOOOOO    0.000000    0.000000 

52  0.026672  0. 320515  0.000000  0.000000  0.000000  O.OOCOOO  0.000000    0.000000    0.000000    0.000000    O.OOOOCO 

53  0.005692  0.152388  O.OOOOCO  0.000000  O.OOCOOO  O.OCOOOO  0.000000  0.000000  0.000000  0.000000  O.OOOOOC 
56  0.206107  0.0901:0  O.OCOOOO  O.OOOCOO  0.000000  O.OOOCOO  0.000000    0.000000    0.000000    0.000000    O.OOCOCO 

55  0.365692  0.058818  O.OOCCOO  0.000000  0.000000  O.OCOOOO  O.OCOOOO    0.000000    0.000000    0.000000    0.000000 

56  0.500C00  0. 063056  O.OOCOOO  O.OCOOOO  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    O.OOOOCC 

57  0.6565C3  0.033C63  O.OCOOOO  0.000000  0.000000  O.OOOCOO  0.000000    0.000000    0.000000    0.000000    O.OOOCOO 

58  0.7038=3  0.0262°o  O.CCOCOO  0.000000  0.000000  0.000000  O.OOCOOO    O.OOCOOO    0.000000    O.OCOOOO    O.OCOOOO 

59  0.9065C3  O.OIoCCd  0.000000  0.000000  O.OOOOOO  O.OOOOCO  0.000000    O.OOOOCO    0.000000    0.000000    0.000000 

60  0.975528  0.007963  0.000000  O.OOOCOO  0.000000  0.000000  0.000000    0.000000    O.OOCOOO    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.0066=6  0.816171 

2  0.00978?  0.567062 
I  0.016663  0.65  2333 

6  0.019578  0. 380806 

5  0.026672  0.329515 

«   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CAGES   " 

SECTION  7      V  =  0.520888  CHORD  =  0.26o038 

I  XB  CASE  1  CASE  2     CASE  3  CASE  6  CASE  5  CASE  o  CASE  7     CASE  8     CASE  9     CASE  10 

61  0.000000  0.528120  0.000000  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    O.OOOOCO 

62  0.026672  0.315010  0.000000  0.000000  0.000000  O.OCOOOO  0.000000    0.000000    0.000000    O.OCOCOO    0.000000 

63  0.0=5692  0.165907  0.000000  0.000000  O.OCOOOO  0.000000  O.OOOCOO  0.000000  0.000000  O.OOCCOO  c.cooooc 
66  0. 206107  0.0866D8  0.000000  O.OOOOOO  0.000000  O.OCOOCO  0.000000    0.000000    0.000000    O.OOOCOO    o.coocco 

65  0.3656=2  0.05d658  O.OOOOCO  0.000000  0.000000  O.OCOOOO  0.000000    0.000000    0.000000    O.OOOCOO    O.OCOOCO 

66  0.500000  0.061378  O.OOOOCO  O.OOOOCO  O.OOOCOO  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000 

67  0.C56509  0.031972  O.OOOCOO  O.OCOOOO  O.OOOCOO  0.000000  0.000000    0.000000    0.000000    O.OOOOCO    0.000000 

68  0.70:8=3  0.02J680  O.OOCOCO  O.OOCOOO  C. 000000  0.000000  0.000000    O.COCCOO    0.000000    0.000000    O.OOOOOO 

69  0. =06508  0.015e79  O.OOOOCO  O.OOOOCO  0.000000  O.OOCOOO  O.OOOOCO    O.OOOOCO    O.OOCCOO    O.OCOOOO    O.OCOOOO 

70  0.975528  0.007727  O.OOCOOO  O.OCOOCO  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  0.0068=6  0.77°8b0 

2  0.00=78=  0.561859 

3  0.01668:  0.6322=1 

6  0.019578  0.363091 
5  0.026672  0.315010 

«   CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES   " 

SECTION  8      Y  =  0.381506  CHORD  =  0.272673 

I  XB  CASE  1  CAGE  2     CASE  3  CASE  6  CASE  5  CASE  6  CASE  7     CASE  8     CASE  9     CASE  10 

71  0.000000  0.695801  O.OCOOOO  O.OOOOCO  0.000000  0.000000  0.000000    0.000000    O.OOOOCO    0.000000    O.OOCOOO 

72  0.026--2  0.2=5t>28  O.OOCOOO  0.000000  0.000000  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000 

73  0.095652  0.13o826  0.000000  0.000000  O.OOCCOO  O.OOCOCO  O.OCOOOO  0.000000  0.000000  0.000000  0.000000 
76  0.2Cd107  0.081121  0.000000  0.000000  O.COOOCC  0.000000  O.OOCOOO    0.000000    0.000000    O.OOCOCO    0.000000 

75  0.3656=2  0.053235  0.000000  0.000000  0.000000  O.OOCOOO  0.000000    0.000000    0.000000    O.OOCOOO    O.OOOOCO 

76  0.5C0CC0  0.039607  O.OOOCOO  0.000000  0.000000  O.OOCOOO  O.OOCOOO    O.OOOOCO    O.OOOOCO    O.OOOCOO    O.OOCOCO 

77  0.65-5C3  0.0307C8  O.OOOOCO  O.OOOOCO  0.000000  O.OCOCOO  0.000000    O.OOOOCO    O.OOCOCO    O.OCCCCO    O.OOCCCO 

78  C.7o:6--3  0.022863  0.000000  O.CCOCCO  0.000000  0.000000  O.OOOOOO  0.000000  O.OOCOOO  C.OOOOCO  C.CCCOCO 
7=  0.9C65C3  0.0151o5  O.OOOOCO  O.OOCCCO  O.OOOOCO  O.OOOCOO  0.000000  0.000000  O.OOCOOO  O.OOCOOO  O.OCCCCO 
80  0.075528  0.00768O  0.000000  0.000000  0.000000  O.OOOCOO  0.000000    0.000000    0.000000    0.000000    O.OOOOOC 


1  0.0068=6  0.732116 

2  0.00=78=  0.508657 

3  0.C166S3  0.605773 
6  0.019578  0.361623 
5  0.026672  0.2?5o28 


DETAILED  LEADING  EDGE  LOADING 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION  =      Y  =  0.232726  CHORD  =  0.300690 

I  XB  CASE  1      CASE  2  CASE  3  CASE  6  CASE  5  CASE  6  CASE  7      CASE  8      CASE  9      CASE  10 

81  O.OCOOOO  0.663660  O.OOOOOO  0.000000  0.000000  O.OOOOCO  0.000000    0.000000    O.OCOOOO    0.000000    0.000000 

82  0.026672  0.267585  0.000000  0.000000  0.000000  O.OOCCOO  O.OOOCOO    0.000000    O.OOCOOO    O.OOOOCO    0.000000 

83  0.095692  0.126018  O.OCOOOO  0.000000  O.OOCCOO  0.000000  0.000000    0.000000    0.000000    0.000000    0.000000 
86  0.206107  0.076036  0.000000  0.000000  O.COOCOO  0.000000  0.000000    0.000000    0.000000    O.OOOOCO    O.OOCOOO 

85  0.365692  O.O60507  O.OOOOCO  0.000000  0.000000  0.000000  0.000000    0.000000    O.OOOCOO    O.OCOCOO    O.OOOCOO 

86  0.500000  0.037572  0.000000  0.000000  0.000000  0.000000  O.OOOCOO    0.000000    0.000000    O.OOOOCO    0.000000 

87  0.6565C8  O.C2=66o  0.000000  O.OCOOOO  0.000000  0.000000  0.000000    0.000000    O.OOOCOO    O.OOOCOO    O.OOOOOC 

88  0.70:8=3  0.022162  0.000000  0.000000  O.CCOCCO  0.000000  0.000000    0.000000    O.OOOOCC    0.000000    0.000000 

89  0.9065C8  0.016763  0.000000  0.000000  O.OCOOOO  O.OOCOCO  0.000000    O.OOOCOO    0.000000    0.000000    O.OOOOCC 

90  0.975528  0.0072=8  O.OOCOOO  0.000000  0.000000  O.OOCOOO  0.000000    0.000000    0.000000    O.OCOOOO    O.OOOCOO 

DETAILED  LEADING  EDGE  LOADING 

1  0.0068=6  0.662517 

2  0.0C978?  0.660320 

3  0.016683  0.367232 
6  0.019578  0.30=1=6 
5  0.026672  0.267585 


CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 


SECTION  10  V  =  0.078217     CHORD  =  0.32??93 

I  XB  CASE  1     CASE  2  CASE  3     CASE  6     CASE  5  CASE  6     CASE  7     CASE  8  CASE  9  CASE  10 
MING 

91  0.000000  0.368=52  O.OCOOOO  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000 

92  0.026672  0.210196  O.OOCCOO  0.000000  O.OOCOOO  0.000000  0.000000  O.OOOOCO  0.000000  0.000000  0.000000 

93  0.0=56=2  0.100887  0.000000  0.000000  O.OOCCCO  O.OOCOOO  0.000000  0.000000  O.OOCOOO  O.OOCOOO  0.000000 
96  0.2061C7  0.066:71  O.OOOOCC  0.000000  O.COCOuC  o.cccooo  0.000000  0.000000  O.OOCOOO  O.OOCCCO  O.OOCCCO 
95  0.365692  0.067291  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000  0.000000  O.COOOCO 
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96  0.500000  0.039165    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000 

97  0.651508  O.OiC'.CO    0.000000    O.OOOOOD    0.000000    0.000000    0.000000    0.000000    0.000000    O.OCOOOO    0.000000 

98  0.7«38°S  O.C:<;758    0.000000    0.000000    0.000000    O.OCOOOO    0.000000    O.CCOCOO    0.000000    O.OOCOGG    C. 000000 
90  O.OO'.SCS  0.01bt76    0.000000    0.000000    0.000000    0.000000    0.000000    0.000000    O.COOOCO    0.000000    0.000000 

100  0.9755J8  0.0CS;=D    0.000000    0.000000    0.000000    0.000000    0.000000    O.OOOOOO    0.000000    0.000000    0.000000 

DETAILED  LEADING  EDGE  LOADING 

1  COOKS'";  0. 515099 

2  0.00=789  0.35885C 

3  0.C1<;633  O.CSo867 
6  0.019578  o.c^ck: 
5  o.o;';<i72  o.:io,'^o 

«   SPANWICE  LOADING  FOR  FUNDAMENTAL  CAGE   1« 

LIFT  INDUCED  DRAG  

CLG        CLMU       CL        "     CDG         CDMU        CS 


CD  CMU  GAMMA  ALFIN 

1  0.993841  0.036230  0.000000  0.036230  »  0.0006323  0.0000000  0.0013670  -0.0007347  0.0000000  0.0028321  0.0570169 

2  0.96=372  0.05901°  0.000000  0.05O019  •  0.0010301  0.0000000  0.0013883  -0.0003582  0.0000000  0.0017505  0.0255027 

3  0. =21032  0.071718  0.000000  0.071718  «  0.0013016  0.0000000  0.00115t)0  -0.00C1511  O.OOOCOOO  0.0063592  0 .  0 1 2  7 "  1 2 
«  0.850012  0.080822  0.000000  0. 080822  «  0.0011106  0.0000000  0.0011505  -0.0C0C398  0.0000000  0.0071202  O.00Sel=5 
5  0.758062  0.081301  0.000000  0.081301  "  0.00111=0  0.0000000  0.0013=31  0.00C025o  0.0000000  0.0081731  0.0C611C6 
i  0.617116  0.07=38=  0.000000  0.079389  "  0.001385o  0.0000000  0.0013019  0.OO0C807  0.0000000  0.0088136  0.0050705 

7  0.520888  0.076165  0.000000  0.076165  »  0.00132=3  O.OOOOOCO  0.0011913  0.0001380  O.OOOCOOO  0.0093b97  0.001718o 

8  0.381501  0.071829  0.000000  0.071829  •  0.0012536  0.0000000  0.00101=9  0.0002037  0.0000000  0.0C97S57  0.00172c8 

9  0.232726  0.066165  0.000000  0.0661c5  «  0.0C1151S  0.0000000  0.00085=8  0.0002=50  O.OCOOOOO  0.00==175  0.0016069 
10  0.078217  0.058551  0.000000  0.058551  «  0. 0010219  0.0000000  0.0005201  0.0005018  0.0000000  0.0096608  0.0031=73 


TOTAL     0.070281   0.000000   0.070281   "    0.0012266  0.0000000   0.0010305   0.0001961   0.0000000             0.0002059 

PITCHING  MOMENT  ...  LIFT  CENTER  ... 

iCTION      Y         CMG        CMMU  CMT  CM  •  "  XCP/C  XCL/C 

1  0.993811  -0.00332b  0.000000  0.000000  -0.003325  •  «  0.0=1763  0.091763 

2  0. =6=372  -0.003613  0.000000  0.000000  -O.OO80I3  «  «  0.116153  0.116153 

3  0.921032  -0.011778  0.000000  0.000000  -0.011778  •  «  0.197701  0.197701 
1  0.850012  -0.017819  O.OOOOOO  0.000000  -0.0178l9  »  »  0.220815  0.22CS15 

5  0.758062  -0.018179  0.000000  0.000000  -0.018179  «  «  0.227287  0.227287 

6  0.617116  -0.018190  0.000000  0.000000  -0.018190  »  «  0.22=127  0.229127 

7  0.520SSS  -0.017511  O.OCOOOO  0.000000  -0.017511  «  «  0.230317  0.230317 

8  0.381501  -0.01o696  0.000000  0.000000  -0.016696  •  "  0.232138  0.232138 

9  0.232726  -0.015772  0.000000  0.000000  -0.015772  »  »  0.2383t>8  0.2383c8 
10  0.073217  -0.015390  0.000000  O.OOOOOO  -0.015890  »  •  0.2713=2  0.271392 


TOTAL  -0.115=88   0.000000  0.000000  -0.115=83   (APEX)     2.077202   2.077202  CX/CREF) 

0.133806   O.OCOOOO  0.000000  0.133806   CXMC)      0.511205   0.511205  (X/E/2) 

«  TOTAL  AERODVNAMIC  COEFFICIENTS   » 

CASE  1  CASE  2     CASE  3     CASE  1  CASE  5     CASE  6 
7     CASE  8     CASE  9     CASE  10 

CCLG   0.0702811  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

CCLJ   0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

•    CCL   0.0702311  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOOCO  0.0000000  0.0000000 

CCDG   0.0012266  O.OCOOOOO  O.COOOCOO  0.0000000  0.0000000  0.0000000  C.OOOOOOO  O.OCOOOOO  0.0000000  O.OOOCOOO 

CCDJ   O.OCOOOOO  O.OOOOOCO  O.OCOOOOO  O.OOCOOOO  O.OOOOOOO  O.OCOOOOO  0.0000000  0.0000000  O.OOOCOOO  O.OOOOOCO 

CCS   0.00:0335  O.OCOOCOO  0.0000000  O.OOOOOCO  O.OOOCOOO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

CCD   0.0001=61  O.OCOOOOC  0.0000000  O.OOOOCOO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

«  CDITT   0.0002059  0.0000000  0.0000000  O.OCOOOOO  0.0000000  O.OOOOOCO  0.0000000  0.0000000  0.0000000  0.0000000 

«    CCJ   0.0000000  O.OOOOOCO  O.COCCOOO  O.OOOCOOO  0.0000000  O.OOOOOCO  O.OOOCOOO  O.OOOOCOO  0.0000000  0.0000000 

CCMG  -0. 115=i82  O.OCOOOOO  0.0000000  O.OOCOOOO  0.0000000  0.0000000  0.0000000  O.OOOOCOO  0.0000000  0.0000000 

CCMJ   0.0000000  O.OOOCOOO  O.COOOOCO  O.OOCOOOO  0.0000000  O.OOOOOCO  0.0000000  0.0000000  0.0000000  O.OOOOCOO 

CCMT   0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOCOOO  0.0000000  0.0000000 

CCM  -0. 115=882  0.0000000  0.0000000  0.0000000  0.0000000  O.OOCOOOO  0.0000000  0.0000000  O.OCOOOOO  0.0000000 

CXCP   2.0772021  0.0000000  0.0000000  C.COOCCOO  C.OOOOOOO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

CXCL   2.0772021  O.OOCOOOO  O.OOOOOCO  0.0000000  0.0000000  O.OOCOOOO  0.0000000  0.0000000  0.0000000  O.OCOOOOO 

CXCPB   0.5112055  0.0000000  0.0000000  O.OCOOOOO  0.0000000  O.OOCOOOO  0.0000000  0.0000000  0.0000000  0.0000000 

CXCLB   0.5112C55  0.0000000  O.OOCOOOO  O.OOOOOCO  0.0000000  C.OOOOOOO  0.0000000  0.0000000  0.0000000  0.0000000 

CCMGMC   0.13380o2  0.0000000  O.OOOOOCO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000 

CCMJMC   O.COOOCOO  O.OOOOCOO  O.OCOOOOO  O.OOOCOOO  O.OOOCOOO  0.0000000  0.0000000  0.0000000  0.0000000  O.COOOCOO 

CCMTMC   O.OOOCOOO  O.OOOCOOO  O.COOCOOQ  0.0000000  0.0000000  O.OOOOOCO  O.OOCOOOO  0.0000000  0.0000000  0.0000000 

«  CCM'ic   0.1338062  C.OOOOOOO  O.OCOOOOO  O.OOOCOOO  0.0000000  O.OOCOOOO  0.0000000  0.0000000  0.0000000  0.0000000 

CLLG   0.0000000  O.OOCOOOO  O.OOCOOOO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOCOOO  0.0000000 

CLLJ   O.OCOOOOO  O.OOOOOCO  O.OOOOCOO  O.COOCQCO  O.OOOOCOO  O.OOCOOOO  0.0000000  0.0000000  0.0000000  O.OCOOCOO 

CLL  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOCOO  0.0000000  O.OOOOOCO  0.0000000  0.0000000 

CNJ   O.COOOCOO  0.0000000  O.OCOOOOO  O.OOOOCOO  0.0000000  0.0000000  0.0000000  0.0000000  O.OOCOOOO  0.0000000 

CNIMC   0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOCOO  0.0000000  0.0000000  O.OCOOOOO  O.COOOCOO 

CCV   O.OOOCCCO  0.0000000  C.OOOCCOO  O.OOCOOOO  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOCOO 

CBGR   0.0324011  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOCOOO  0.0000000  0.0000000  0.0000000  0.0000000 

CEGL   0.0324014  O.OOOOOCO  0.0000000  O.COCCOOO  O.OOOOCOO  O.OOOCOOO  0.0000000  O.OOOOCOO  0.0000000  O.OCOOOOO 

CBJR   0.0000000  0.0000000  O.OOOOOCO  O.OOOCOOO  O.OOOCOOO  O.COOOCOO  0.0000000  O.OOOOOCO  0.0000000  0.0000000 

CBJL   O.OOOOOCO  0.0000000  O.OOOCOOO  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOCOO  0.0000000  0.0000000 

CBR   0.0324014  0.0000000  O.OOOCOOO  0.0000000  O.OOCOOOO  O.OOCOOOO  0.0000000  O.OOOOCOO  0.0000000  0.0000000 

CSL   0.0324014  0.0000000  O.OCOOOOO  O.OOOOOCO  O.OOCOOOO  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOCOO 

CPMBR   0.461021=  0.0000000  O.OCOOOOO  0.0000000  O.OOOOCOO  0.0000000  O.OCOOOOO  0.0000000  O.OCOOOOO  0.0000000 

CPMBL   O.I0IO219  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  0.0000000  O.OOOOOCO 


THE   PROGRAM   HAO 


NMHHMMMMHHMtfMHMMIItlHKIIKHHNMMMMMHMMMMMHKMMMHI'MnHMMHHNHN 

•   THE   PROGRAM   HAS   REACHED   NORMAL   TERMINATION   » 
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PROGRAM  JETFLAP  LISTING 

PROGRAM  JETFLAP 

C  ***  VERSION  5.0  MODIFIED  BY  J. A.  CAMPBELL  ( JULS8 )  *** 

C  ***  PROGRAM  REVISED  TO  RUN  UNDER  FORTRAN  77  ON  THE  MICROVAX/2000  *** 
C      FINAL  UPDATES  MADE  1^  SEP  88  -  ( JAC ) 
C 

C  SCRATCH  FILES  ADDED  AND  "FIND! "  STATEMENTS  HAVE  BEEN  COMMENTED  OUT 

C  DATA  INPUT  IS  READ  BY  OBTAINING  AN  AVAILABLE  LOGICAL  UNIT  NUMBER  ( LUN ) 

C  INSTEAD  OF  ASSIGNING  A  READ  DEVICE  AS  IS  DONE  ON  THE  IBM  SYSTEM 
C 

C  OUTPUT  VALIDATED  WITH  HISTORICAL  DATA  -  RESULTS  OF  DOUGLAS  COMPANY, 

C  SODERMAN  THESIS  AND  THE  AE-i^BOl  CLASS  PROJECT  OF  S.M.  WHITE  (MAY  85) 
C 
C 

C  ***  VERSION  2.0  UNDER  REVISION   J. A.  CAMPBELL  (FEB  88)  »*» 

C  COMPILED  USING  "FORTVS  JTFLAP( LVL( 66  )  )"  ON  IBM  WITH  NO  ERRORS  5/20/88 

C  UPDATED  EGN  FOR  CMG(K)  IN  SUBR  SLOAD  (TAPE  VERSION  DIFFERENT)  5/31/88 

C  OUTPUT  VALIDATED  WITH  HISTORICAL  DATA  -  RESULTS  OF  DOUGLAS  CONTRACT  & 

C  SODERMAN  ( NPS  THESIS) 
C 

c****»***«**************«»»****»*****^«-**»******»»»******»*********»*»*** 

C*******»***********  EVD  JET-WING  COMPUTER  PROGRAM  **i***************** 
C***********************************************»**»****«******«**«***»* 
C 

c 
c 

C  THE  DEVELOPMENT  OF  THE  ELEMENTARY  VORTEX  DISTRIBUTION  (EVD)  JET-WING 

C  COMPUTER  PROGRAM  FOR  DETERMINING  THE  AERODYNAMIC  CHARACTERISTICS  OF 

C  ARBITRARY  JET  FLAPPED  WINGS  WAS  PERFORMED  BY  THE  DOUGLAS  AIRCRAFT 

C  COMPANY,  V/STOL  TECHNOLOGY  GROUP  -  AERODYNAMICS,  OF  THE  MCDOmJELL 

C  DOUGLAS  CORPORATION.    ORIGINALLY  DEVELOPED  UNDER  THE  SPOtJSORSHIP  OF 

C  THE  INDEPENDENT  RESEARCH  AND  DEVELOPMENT  PROGRAM  OF  HCDOr^NELL 

C  DOUGLAS,  THE  DOUGLAS  EVD  JET  Wir,'G  LIFTING  SURFACE  THEORY  HAS  BEEN 

C  THE  SUBJECT  OF  EXTENSIONS  AMD  IMPROVEMENTS  WHICH  HAVE  BEEN 

C  ACCOMPLISHED  UNDER  OFFICE  OF  NAVAL  RESEARCH  CONTRACT  N0001'+-71-C-0250 

C  (T.  L.  WILSON  -  PROJECT  ENGI^;EER).    WORK  LEADING  TO  THE  PRESEtJT 

C  COMPUTER  PROGRAM,  WHICH  INCORPORATES  SEVERAL  FEATURES  ORIGINALLY 

C  DEVELOPED  BY  THE  DOUGLAS  AIRCRAFT  COMPANY,  WAS  ALSO  CONDUCTED 

C  UNDER  THE  SPONSORSHIP  OF  THIS  CONTRACT. 

C 

C  IN  SUMMARY,  THE  EVD  JTT  WING  COMPUTER  PROGRAM  WILL  PROVIDE, 

C  FOR  ARBITRARY  PLANFOR  3,  THE  FOLLOWING  - 

C  1.   SPANIIISE  ;,NlD  CHORDWISE  LOADING 

C  2.   SPANWISE  VARIATION  OF  INDUCED  DRAG 

C  5.   A  CAPABILITY  TO  INVESTIGATE  THE  EFFECTS  OF  - 

C  A.   PART  SPAN  FLAPS 

C  B.   PART  SPAN  BLONING 

C  C.   ROLLING,  YAWING,  PITCHING  AND  SIDESLIP 

C  <+.   TOTAL  LIFT  AND  INDUCED  DRAG  (TREFFTZ  PLANE  METHOD), 

C  PITCHING,  YAWING  AND  ROLLI^JG  MOMENTS,  ETC. 

C 

C  COMPLETE  DOCUMENTATION  OF  THE  EVD  JET  WING  LIFTING  SURFACE  THEORY 

C  AND  ASSOCIATED  COMPUTER  PROGRAM  ARE  CONTAINED  IN  DOUGLAS  REPORT 

C 

C  J551°  --  A  THEORETICAL  METHOD  FOR  CALCULATING  THE 

C         AERODYNAMIC  CHARACTERISTICS  OF  ARBITRARY  JET  FLAP  WINGS 

C 

C  VOLUME  I 

C  THE  ELEMENTARY  VORTEX  DISTRIBUTION  JET-WING 

C  LIFTING  SURFACE  THEORY 

C 

C  VOLUME  II 

C  EVD  JET-WING  COMPUTER  PROGRAM  USERS  MANUAL 

C 

c 
c 

INTEGER^'*  LUN 

INTEGER*2  INFILE  SIZE,IOFILE  SIZE 

INTEGER    STATUSTNAN3 

CHARACTER*20  INFILE ,OUTFILE 

LOGICAL   EXIST 

COi'li;ON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COMMON/tlARKv/NRCKS  ,NR0W3J  ,NWT  ,NJT  ,NMAX,NW(  40  )  ,NjUo  )  ,IW(  40  )  ,1  J(  40  ) 

COI'.riON   /LU.sE/   TITLE(20l 

common/john/  area  .span ,aratio,tr, sweep ,cref,cmac ,cbar,xmc ,xcg 
comflon/spirit/  newmax  ,newcmu  ,noalf a  ,  lo(slc  , ir 
com;ion/indata/are,spa,cre,xm,cma,xc,nro,nc,isy,ipr,jet,igt,ihi 

COMMON/GEOM1/Y(40),CH(5RD(40),DELTA(40  ),XB(600),XI(600),DEL(600), 
1  D(40),KK(600 ),ITYPE1600 I 

COMMON/GEOM2/XLEAD(40),XTRAIL(40),TANLE(40),TANTE(40) 

COMMON/FCASE2/TST(40,10  ),HL(40,10  ),DJt<+0  I  ,A(;tE  (  40  )  ,AC(  20,40  ), 
1  XHB(4,46  1. BET  (4, 46  » ,IFS(  4  ,40  )  ,ICT(  40  )  ,IHT(  40  )  ,N(iT  ,NHT 

C0MM0N/FCASE5/EPS(  600,10 ),BETA1  600,10  I  ,THETA( 40 ,10 ) ,THS( 40,10 ) 

COMMON/JCASE/CMUI  40  )  ,(^MUP(  40  )  ,CMUPP(  40  ) 

C0MM0N/S0LV1/B(  600 ,10 ) 

COMMON/COMPOS/FACTORl 10,24 ),NCC 

COMMON/DERIV/UOI40),CLQ,CMQ,CMQMC 

COMMON/INDAT/LUN 
C      DATA  CHECK/4H9   / 

DATA  CHECK/ '9    '/ 
C 
C     DEFINE  FILE  1( 1000,1200, U, NEXT  ) 

C  FOLLOWING  LINES  FOR  SCRATCH  FILES  ADDED  BY  J. A.  CAMPBELL  ( JUL88 ) 


OPEN  (in^IT  =  l, 
2      FILE=  'JTFLAP1.DAT', 
2      ORGANIZATION=  'SEQUENTIAL' 
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2      ACCESS=  'DIRECT', 
2       RECORDTYPE=  'FIXED', 
2       FORn=  'UNFORMATTED', 
2      RECL=  600, 
2      ASSCCIATEVARIABLE=  NEXT, 
2       STATUS=  'SCRATCH'  ) 
C  OPEN  SCRATCH  FILE  FOR  MATRIX  INPUT  TO  SOLN  ROUTINE 

OPEN  IU'^IT  =  2, 
2       FILE=  'JTFLAP2.DAT', 
2      0RGANI2ATICN=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2      RECCRDTYPE=  'VARIABLE', 
2       FORM=  'UNFORMATTED', 
2       STATUS=  'SCRATCH'  ) 
C  OPEN  SCRATCH  FILE  FOR  TEMP  STORAGE  DURING  MATRIX  SOLN 

OPEN  (UNIT=S, 
2      FILE=  'JTFLAP3.DAT', 
2      ORGANIZATION=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2      RECORDTYPE=  'VARIABLE', 
2      FORM=  'UNFORMATTED', 
2      STATUS=  'SCRATCH'  ) 
C  OPEN  SCRATCH  FILE  FOR  TEMP  STORAGE  DURING  MATRIX  SOLN 

OPEN  (UrJIT=<+, 
2      FILE=  MTFLAP-t-DAT', 
2      ORGANIZATIOrj=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2      RECORDTYPE=  'VARIABLE', 
2      FORri=  'UNFORMATTED', 
2      STATUS=  'SCRATCH'  ) 
C 
C   CALL  LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN,  THEN  PRINT  HEADER 

1ST AT  =  LIB$ERASE  PAGE  (1,1) 

PRINT  * 

PRINT  X,  •  PROGRAM  JETFLAP  :  VERSION  3  :  31  JULY  88  ' 

PRINT  * 

PRINT  *,  '  THE  ELEMENTARY  VORTEX  DISTRIBUTION  ( EVD )  JET-WING' 

PRIt.'T  *,  '  COMPUTER  PROGRAM  FOR  DETERMINING  THE  AERODYNAMIC 

PRIfJT  *,  '  CHARACTERISTICS  OF  ARBITRARY  JET  FLAPPED  WINGS' 

PRINT  »t 

PRINT  * 
C 
C  ROUTINE  TO  PROVIDE  NAME  FOR  AND  OPEN  INPUT  DATA  FILE 

5  STATUS  =  LIBSGET  INPUT  (INFILE,         |  The  input  file 
2        '  ENTER  THE  DATA  FILE  NAME:   ',   I  Prompt 

2  INFILE  SIZE)    I  Filename  size 

IF  (.NOT.  STATUS)  CALL  LIB^SIGflAL  (XVAL  (STATUS)) 
C   CHECK  TO  SEE  IF  THE  FILE  EXISTS  BEFORE  TRYING  TO  ACCESS  IT 
IF  (INFILE  .EQ.  '999')  GO  TO  110 

INQUIRE  (FILE  =  INFILE  (1: INFILE  SIZE),  EXIST  =  EXIST) 
IF  ( .NOT.  EXIST)  THEN 
PRIfJT  ^ 

PRINT  *,  '  THAT  FILE  NAME  DOES  NOT  EXIST.' 
PRINT  *,  •    (ENTER  999  TO  EXIT).' 
PRINT  * 
GO  TO  5 
END  IF 
C   GET  A  FREE  LOGICAL  UNIT  NUMBER 
STATUS  =  LIB$GET  LUN  ( LUN  I 

IF  (.NOT.  STATUS!  CALL  LIB$SIGNAL  (XVAL  (STATUS)) 
C  OPEN  FILE  FOR  DATA  FILE  INPUT 
OPEN  (UNIT=LUfK 
2      FILE=  INFILE  (1:INFILE  SIZE), 
2       0RGANI2ATI0;J=  'SEQUENTIAL', 
2      ACCESS=  'SEQUENTIAL', 
2       RECORDTYPE=   VARIABLE', 
2      FORM=  'FORMATTED', 
2      STATUS=  'OLD'  ) 
C 

C  SEND  OUTPUT  TO  SCREEN  OR  FILE 
CALL  CLRSCRN 
PRINT  * 
PRINT  *,  '==>  SEND  THE  RESULTS  TO  THE  SCREEN  OR  A  FILE?" 

6  PRINT  *,  •     ENTER  (S  OR  F  )' 
READ  (5,  '(AD'  )  ANS 

IF  (ANS.EQ.  'F'  )  THEN 
PRINT  * 

7  PRINT  * 
PRINT  *,  '  (ENTER  999  TO  EXIT.)' 


The  OUTPirr  file 
Prompt 
Filename  size 


STATUS  =  LIB$GET  INPUT  (OUTFILE, 
2    '  ENTER  NAME  OF"OUTPUT  FILE  TO  CREATE:   ' 
2  lOFILE  SIZE  ) 

CHECK  TO  SEE  IF  THE  FILE  EXISTS  BEFORE  CREATING  it 
IF  (OUTFILE  .EQ.  '999')  GO  TO  110 
INQUIRE  (FILE  =  OUTFILE  (1:I0FILE  SIZE),  EXIST  =  EXIST) 
IF  (  EXIST  )  THEN 
PRINT  * 

PRINT  *,  '  THAT  FILE  ALREADY  EXISTS.' 
WRITE  (6,1005) 

PRINT  *,  '  (OR  ENTER  999  TO  RETURN  TO  EXIT  OPTION).' 
PRINT  * 
8      CALL  QUERY  (NANS) 
ELSE 

GO  TO  9 
END  IF 
IF  (NANS  .EQ.  1)  THEN 

GO  TO  9 
ELSE  IF(NANS  .EQ.  2  )THEN 

60  TO  7 
ELSE  IFtNANS  .EQ.  999  )THEN 
GO  TO  110 
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ELSE 

PRINT  *,  '   INVALID  RESPONSE  -  REENTER.' 
GO  TO  6 
END  IF 
C  OPEN  FILE  FOR  RESULTS  FROM  PROGRAM  JETFLAP 
9    PRINT  *,  '   PROCESSING  BEGINS  .  .  .  ' 
PRIfJT  * 

PRINT  *,  '   DATA  BEING  WRITTEN  TO  FILE  ' ,OUTFILE 
PRINT  *,     '       FILE  WILL  HAVE  SUFFIX  .DAT' 
OPEN  ( UNIT=6,FILE=0UTFILE , ST ATUS= 'UNKNOWN' ) 
■'■  ■    THEN 


Jt^J.  I  -O  y  r 

( ANS.EQ. 'S' 
10 


ELSE  IF 
GO  TO 
ELSE 

PRINT  if, 
GO  TO  6 
END  IF 
PRINT  * 
1005  FORMAT  (  IX, 
1010  F0RMAT(A4) 

:   READ  THE  TITLE  FOR  THIS  CASE 
10  READILUM,  20,  END=100 
20  F0RMAT(20A^) 


INVALID  RESPONSE  -  REENTER. 


DO  YOU  WISH  TO  OVERWRITE  THIS  FILE?  1  =  YES>2  =  NO') 


)  TITLE 


READ  GENERAL  GEOMETRY  CONTROL  DATA 

30  READILUN,  40  »  AREA, SPAN, CRE F ,XMC ,XCG 

'+0  FORriAT(5F10.6) 

READ! LUN,41  )  NROWS,NCASES ,ISYMM,IPRINT ,JETFLG,IGTYPE ,IHINGE ,IDERIV 
<il  FORMAT  I  16I2) 


ARE 

SPA 

CRE 

XM 

XC 

NRO 

NO 

ISY 

IPR 

JET 

IGT 

IHI 


AREA 

SPAN 

CREF 

Xl',C 

XCG 

NRCWS 

NCASES 

isvMri 
iPRirjT 

JETFLG 
IGTYf-E 
IHIN3E 


C   FIND  OUT  WHICH  TYPE  OF  RUN  IS  REQUIRED 

IFdDERIV  .NE.  0)  GO  TO  60 
C 

C   A  REGULAR  RUN  WILL  BE  EXECUTED 
50  CALL  APPLYl 

GO  TO  (  60  ,  70  ,  100  ,  120  ),  IR 
C 

C   A  STABILITY  DERIVATIVE  RUN  WILL  BE  EXECUTED 
60  CALL  APPLY2 

IF(IR  .EQ.  2)  GO  TO  120 
C 

C***)f**>f**^***f**^5f-**>t**Mif9(^*^^***)(**************»********»***»**»*9t*»J(*** 

C   THIS  RUN  HAS  BEEN  COMPLETED.   THANK  GOD  FOR  SMALL  BLESSINGS. 

CJ****^*****^i<r*^jt^*^*-^***^5t**^*»t9(**Jt«****-*>f*e*****->c*********^f^************ 

C 

C   PRINT  COMPLETION  MESSAGE  FOR  THIS  RUN  AND  GO  BACK  TO  BEGIN  A  NEW  RUN 
70  WRITE16,  80  ) 
80  FORMAT  I iHO////  32X,10( 5H^****  ) ,  2H***/  32X, 

1  5SH*   THE   PROGRAM   HAS   REACHED   NORMAL   TERMINATION   */ 

2  32X,10I5H*>-**^  ),3H»^*  ) 

C   READ  TO  SEE  IF  THE  NEXT  CARD  IS  A  TITLE  OR  AN  OLD  END  OF  CMU  CARD 
READILUN,  20,  END  =  100  )  TITLE 
90  IF(TITLE(1)  .EQ.  CHECK)  GO  TO  10 
GO  TO  30 


PRINT  COMPLETION  MESSAGE  AND  STOP  EXECUTION 
100  KRITE(6,  80  ) 
110  STOP 


C   A  FATAL  ERROR  HAS  OCCURED.   PRINT  FINAL  MESSAGE  AND  STOP  EXECUTION. 
C****>^y-^''^****?;-**'*****^*5^7;***r***-i«*****7(*4«*******^«*********************** 

120  WRITE(6,  130  ) 

130  FORMAT!  iH0////62X,2('+H****  )/31X,H(  5H*-****  )/ 

1  31X,55H*   THE   PROGRAM   HAS   REACHED   ABNORMAL   TERMINATION  */ 

2  31X,11(5H*****)/62X,2(<+H***x)) 
l-tO  STOP 

END 

SUBROUTINE  CLRSCRN 


LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 

1ST AT  =  LIB$ERASE_-^GE  (1,1) 

RETURN 

END 

SUBROUTINE  QUERY (NANS) 

ROUTINE  TO  TRAP  ERRORS  CAUSED  BY  IMPROPER  RESPONSES  TO  QUESTIONS. 
THE  COMPUTER  GENERATES  AND  ERROR  WHEN  A  CHARACTER  IS  SUPPLIED  TO 
A  QUESTION  EXPECTING  AN  INTEGER  OR  REAL  VALUE, 


NQTEST=0 
CONTINUE 
IF  (NQTEST 

PRINT  * 

PRINT  * 
END  IF 
NQTEST  =  NQTEST 


.GT.  0)  THEN 
'   CHARACTER  VALUES  ARE  NOT  VALID. 
'   PLEASE  ENTER  AN  INTEGER  VALUE.' 

+  1 
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READ    (5,*,ERR=1)NANS 

RETURN 

END 
C**^***^******»(*^*>f************************************»f  **************** 

SUBROUTINE    APPLYl 
C 

C      THIS   SUBROUTINE    CONTROLS   ALL    ASPECTS   OF   CALCULATION   OF    REGULAR   CASES 
C 

COtlMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COtu'lOiJ/SPIRIT/    NEJ'JiiAX.NENCMU.NGALFA, LOGIC, IR 
C      DECIDE    WHETHER   OR   NOT    THERE    IS   AN   ALPHA   CASE 

NOALFA  =  1 

IR  =  1 

LOGIC  =  1 

IFdSYMM  .LT.  0)  NOALFA  =  0 
C 

C  INITIALIZE  AND  INCREMENT  THE  CMU  CASE  CONTROL  COUNTER 
10  NEKCMU  =  0 
20  NEWCHU  =  NEWCMU  +  1 
C 

C   EXECUTE  THE  PROBLEM  FORMATION  STAGE 
20  CALL  STAGEl 

GO  TO  (  'fO  ,  60  ,  70  ,  80  ),  IR 
C 

C   EXECUTE  THE  PROBLEM  SOLUTION  STAGE 
^0   CALL  STAGE2 

IF(IR  .EQ.  2)  GO  TO  80 
C 
C   EXECUTE  THE  AERODYNAMIC  PARAMETER  STAGE 

50  CALL  STAGES 
C 

C   THE  PROGRAM  HAS  BEEN  EXECUTED  SUCESSFULLY 
C   GO  BACK  AND  DO  A  NEW  CMU  CASE 

IFIJETFLG  .NE.  0)  GO  TO  60 

GO  TO  20 
C 

C*****************f***¥**^<-^^^*************f**********^********************** 
C   THIS  RUN  HAS  BEEN  COMPLETED.   RETURN  TO  START  A  NEW  RUN. 
60  IR  =  2 

RETURN 
C  THIS  RUN  HAS  BEEN  COMPLETED.   NO  FURTHER  RUNS  FOLLOW. 
70  IR  =  5 

RETURN 
C   A  FATAL  ERROR  HAS  OCCURED.   RETURN  AND  QUIT. 
80  IR  =  <^ 

RETURN 
C*********************************************************************** 

END 

SUBROUTINE  APPLY2 
C 

C  THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  CALCULATION  OF 
C  STABILITY  DERIVATIVES 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COMMON/SPIRIT/  NEHMAX, NEKCMU, NOALFA , LOGIC ,IR 
C 

C  CHECK  ON  STATUS  OF  CONTROL  FLAGS 
10  IHINGE  =  0 

NOALFA  =1 

NEl.'CdJ  =  1 

IFdSYMM  .GE.  0)  GO  TO  30 

ISYMM  =  0 

HRITE(6,  20  ) 
20  FORMAT(lH0///16X,<ilHTHE  ISYMM  FLAG  INDICATED  AN  ANTI-SYMETRIC , 
1     'tSH  CASE.   HOWEVER,  IT  WILL  BE  TREATED  AS  SYMETRIC.) 
C 

C   EXCECUTE  THE  FIRST  RUN 
C 

C   FORMULATE  THE  PROBLEM  AS  USUAL 
50  CALL  STAGEl 

GO  TO  (  ^+0  ,  110  ,  100  ,  110  ),  IR 
C 

C   ADD  THE  EXTRA  FUNDAMENTAL  CASE  FOR  DERIVATIVES  DUE  TO  PITCHING 
40  LOGIC  =  1 

CALL  STAGE"* 
C 
C   EXECUTE  THE  PROBLEM  SOLUTION  STAGE  AS  USUAL  FOR  THE  FIRST  RUN 

LOGIC  =  1 
50  CALL  STAGE2 

IF(IR  .EQ.  2)  GO  TO  110 
C 

C   EXECUTE  THE  AERODYNAMIC  STAGE  FOR  THE  FIRST  RUN 
C   FUNDAMENTAL  CASES 
60  LOGIC  =  2 

CALL  STAGES 
C 

C  THE  FIRST  RUN  HAS  BEEN  COMPLETED 
C   EXECUTE  THE  SECOND  RUN 
C 

WRITE(6,  70   ) 
70  FORMAT! IHl////////////  37X ,11(  <+H****  1 ,2H**  / 

1  37X,46H*  SECOND  RUN  FOR  STABILITY  DERIVATIVE  CASE   *  / 

2  37X,11(<+H****1,2H**) 

C   IF  THIS  IS  A  SYMETRIC  WING,  SWITCH  IT  TO  ANTI-SYMETRIC  FOR  RUN  2 

80  IFdSYMM  .EQ.  0)  ISYMM  =  -1 
C 

C   STORE  THE  FIRST  RUN  SOLUTION  ON  UNIT  1,  DEFINE  THE  FUNDAMENTAL  CASES 
C   FOR  YAWING  AND  ROLLING  RATES,  AND  PRINT  THE  NEW  FUND  CASE  GEOMETRY. 

90  LOGIC  =  2 
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CALL  STAGED 

SET  UP  AND  SOLVE  THE  MATRIX  SYSTEM  FOR  THE  SECOND  RUN 
LOGIC  =  2 
CALL  STAGE2 
IF(IR  .EQ.  2  )  GO  TO  110 

CALCULATE  AND  PRINT  THE  DERIVATIVES  FOR  ALL  FUNDAMENTAL 
AND  CO:iPOSITE  CASES 

LOGIC  =  5 

IFdPRINT    .GE.    0)    IPRINT    =    2 

CALL   STAGES 


C»»»*»*J»*»*»»X^^»»^*»»**»***»*»»*)t»»*»»X»X********»XXXXXXKXX»»XXXXXXXXKXK» 

C   THIS  IS  THE  END  OF  THE  LINE 
100  IR  =  1 

RETURN 
C 

C   A  FATAL  ERROR  HAS  OCCURED.   RETURN  ABNORMALLY  TO  MAIN. 
110  IR  =  2 

RETURN 
C******7^**>e^************^***»***»*******J(  ******************************* 

END 

SUBROUTINE  STAGE  1 


.EQ.  2  )  )CALL  SGMAIN{NOALFA,IR) 


THIS  SUBROUTINE  READS  THE  GENERAL  GEOMETRY  PARAMETERS  AND  FLAGS,  AND 
CONTROLS  THE  CALLING  OF  THE  SPECIALIZED  GEOMETRY  SUBROUTINES 

COMMON/MATHEW/NCASESjISYMM, IPRINT, JETFLG,IGTYPE,IHINGE 
COMMOri/MARK/NROUS  ,NROHSJ  ,MHT  ,NJT  ,NMAX,NNl  <+0  I  ,NJl  ^0  )  ,IW(  '+0  )  ,IJ(  ^0  ) 
COMMON/SPIRIT/  NEWMAX,NEHCMU,NOALFA, LOGIC, IR 

CHECK  WHETHER  THIS  IS  THE  FIRST  CMU  CASE 
IFINEKCMU  .GT.  1  I  GO  TO  50 
IFKNROHS  .GT.  40)  .OR.  ( NROWS  .  LT .  3  )  )  GO  TO  80 

SECTIONAL  INPUT 

10    IFldGTYPE     .EQ.     D.OR.dGTYPE 
GO   TO    I     20    ,    40    ,    100     ),    IR 

USER   INPUT 

PRINT  ERROR  MESSAGE  BECAUSE  IGTYPE  HAS  THE  WRONG  VALUE 

20    WF!ITE(  b,    30     )    IGTYPE 

30    FORMATl  lHl///<+'+X,32HTHE    IGTYPE    FLAG    HAS   THE    VALUE    OF, 12/ 

1  4'+X,37HCNLY    THE    VALUES    1    OR    2    ARE    ACCEPTABLE// 

2  '+4X,29HTHIS   CASE    HAS   BEEN   TERMINATED) 
GO   TO    100 

READ    THE    COriPOSITE    CASE    REQUIREMENTS 
40    CALL    INCOMPlNCASES,IR  ) 
IF(IR    .EQ.    2  )    GO   TO    100 

READ   THE    CMU   DATA 

SO  CALL  BLOWirJlJETFLG,IRl 

GO  TO  I  60  ,  110  ,  120  ),  IR 
60  CALL  BOXJ(NEWMAX,IR) 

IF(IR  .EQ.  2)  GO  TO  50 

RETURN  NORMALLY  TO  THE  CONTROL  PROGRAM 
70  IR  =  1 

GO  TO  130 

PRINT  ERROR  MESSAGE  BECAUSE  THE  NROWS  VALUE  IS  UNACCEPTABLE 

80  URITEI  6,  °0  I  NRO'.iS 

^0    FORMAT) iHl/55X,7HNR0WS  =,I3) 


C»**********^**^>f***'>f***'>v-******^**")f******i«**?f*^f******-)f  ****************** 

C   A  FATAL  ERROR  HAS  OCCURED.    RETURN  ABNORMALLY  TO  MAIN. 
100  IR  =  4 

GO  TO  130 


THIS  RUN  HAS  BEEN  COMPLETED. 


THANK  GOD  FOR  SMALL  BLESSINGS. 


RETURN  TO  MAIN  AND  BEGIN  A  COMPLETELY  NEW  RUN 
110  IR  =  2 

GO  TO  130 


C   RETURN  TO  MAIN  AND  STOP  THE  EXECUTION 
120  IR  =  3 
130  RETURN  

END 

SUBROUTINE  SGMAIN) NOALFA,IR  ) 


THIS  SUBROUTINE  CONTROLS  ALL  GEOMETRY  CALCULATIONS  FOR  THE 
SECTIONAL  GEOMETRY  METHOD 

COMMON/MATHEW/NCASES,ISYMM, IPRINT, JETFLG, IGTYPE, IHINGE 

READ  THE  WING  PLANFORM  GEOMETRY  DATA 
10  CALL  INPTSdR  ) 

IF(IR  .EQ.  2  )  GO  TO  100 

IFdGTYPE    .EQ.    1)    CALL    XLETRldR) 

IFdR    .EQ.    2  )    GO   TO    100 

IFdGTYPE  .EQ.  2)  CALL  XLETR2 

NORMALIZE  THE  WING  PLANFORM  GEOMETRY  DATA 
20  CALL  NORMl 

READ  THE  JET  SHEET  GEOMETRY  DATA 
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30  CALL  INPUTJ(IR) 

IFIIR  .EQ.  2 )  GO  TO  100 
C 

C   CONSTRUCT  THE  EVD  ELEMENTS 
40  CALL  BOXSiIR) 

IFIIR  .EQ.  2 )  GO  TO  100 
C 

C   CONSTRUCT  THE  SET  OF  FUNDAMENTAL  GEOMETRIC  CASES 
C 

DO  90  N  =  1,NCASES 
LCASE  =  N 
C 
C   READ  THE  GEOMETRY  FOR  THIS  CASE 

50  CALL  INCASE( LCASE, NOALFA) 
C 
C   CONSTRUCT  THE  CASE  DATA 

60  CALL  BEECEEt LCASE, NOALFA, IR) 
IF(IR  .EQ.  2)  GO  TO  100 
C 

C   PRINT  THE  GEOMETRY  AND  CONSTRUCTED  CASE  DATA  IF  REQUIRED 
IFrLCASE  .EQ.  1)  WRITE(6,  70  ) 
70  FORMAT ( IHl ) 
80  CALL  OUTK  LCASE  ) 
90  CONTirJUE 
IR  =  2 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    RETURN  ABNORMALLY  TO  STAGE 1. 
C 

100  IR  =  5 
RETURN 
END 

SUBROUTINE  INPTS(IR) 
C 

C   THIS  SUBROUTINE  READS  THE  WING  GEOMETRY  DATA 
C   FOR  THE  SECTIONAL  GEOMETRY  METHOD 
C 

COMMON/MARK/NROWS,NROWSJ,NWT  ,NJT  ,NMAX  ,NW(  <+0  ),NJ(  40  )  ,IK(  <+0  )  ,IJ(  40  1 
COHriON/GEOMl/Y( 40 ) ,CHORD( 40  )  ,DELTA( 40  )  ,XB( 600 ) ,XI( 600  )  ,DEL( 600 ) , 
1  D140  ),KK(600  ),ITYPE(600 ) 

C0MM0N/GE0M2/XLEAD( 40 ) ,XTRAIL( 40 ) .TANLEt  40 ) ,TANTE( 40 ) 
COMt'iC!N/SGl/XBW(  20,10)  ,XBJ  (  20  ,  10  ) ,  ICTYPE  (  40  )  ,IJTYPE  I  40  ) , 
1  NHTYPE,NJTYPE 

COMMON/INDAT/LUrj 
DIMENSION  NKIO) 
C 

C   READ  THE  SECTIONAL  PLANFORM  DATA 
10  N'WTYPE  =  0 

READ(LUN,  20  )  ( Y( K  )  ,K  =  1 ,NROWS ) 
20  FORMAT(SF10.6) 

READ(LUN,  30  )  ( ICTYPEl K  )  ,K  =  1 ,NROWS  ) 
30  FORMAT! 4012 ) 

DO  40  K  =  1,NR0WS 

IFdCTYPEtK)  .GT.  NNTYPE  )  NWTYPE  =  ICTYPE(K) 
40  COMTIKUE 

IFINiUYPE  .GT.  10)  GO  TO  80 
READ(LUN,  30  )( NI I N ) ,N=1 ,NWTYPE ) 

C  READ  THE  CHORDWISE  DIVISION  DATA  FOR  EACH  ROW  TYPE 
DO  SO  N  =  1, NWTYPE 
NIN  =  NI(N) 

IFI(NIN  .LT.  1)  .OR.  (NIN  .GT.  20))  GO  TO  100 
READILUN,  20  )  ( XBW( L ,N J ,L=1 ,NIN ) 
50  CONTItJUE 
C   DEFINE  THE  NUMBER  OF  CHORDWISE  DIVISIONS  FOR  EACH  ROW 
DO  70   K  =  l.NROHS 
ICK  =  ICTYPE(K) 
60  UiUK  )    =   NKICK) 
70  CONTINUE 
IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  QUIT. 
80  WRITE(6,  90  I  NWTYPE 

90  FORMAT! lHl/45X,2oHNUMBER  OF  WING  ROW  TYPES  =,I3) 
IR  =  2 
RETURN 
100  WRITE! 6,  110  )  NIN,N 

110  FORMAT! 1H1/38X, 13, 38H  WING  ELEMENTS  PRESCRIBED  FOR  ROW  TYPE, 13) 
IR  =  2 
RETURN 
END 

SUBROUTINE  INPUTJ(IR) 
C 

C  THIS  SUBROUTINE  READS  THE  JET  GEOMETRY  INPUT 
C   FOR  THE  SECTIONAL  GEOMETRY  METHOD 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/MARK/NROWS ,NROWSJ ,fJWT ,NJT ,NMAX ,NW( 40 ) ,NJ( 40  )  ,IW( 40  )  ,IJ( 40  ) 
COnMON/SGl/XBW!20,10),XBJ!20,10),ICTYPE(40),IJTYPE(40), 
1  N^'JTYPEjNJTYPE 

COMMON/INDAT/LUN 
DIMENSION  Nil  10) 
C 

C  READ  THE  TYPE  OF  DIVISION  FOR  EACH  ROW 
10  NJTYPE  =  0 
NROWSJ  =  0 

IF!JETFLG  .NE.  0)  GO  TO  90 
READILUN,  20  )  ( IJTYPEI K ) ,K=1 ,NROWS ) 
20  FORMAT  I  401 2) 

DO  30  K  =  1,NR0WS 
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1 

OlITEST    =    0 

0  IITEST    =    1 
NRCWS 

0  )ICOMP    =    0 

0  )IC0?1P    =    1 

ITEST  IGO   TO    160 
.    2)G0   TO   170 

0)ITEST    =    0 
OJITEST    =    1 

IF(IJTYPE(K)  .GT.  NJTYPE  )  NJTYPE  =  IJTYPE(K) 

IF(IJTYPEIK)  .NE.  0  1  NROHSJ  =  NROWSJ  +  1 
30  CONTINUE 

IF( NJTYPE  .GT.  10  1  GO  TO  110 
C   READ  THE  NUMBER  OF  CHORDWISE  DIVISIONS  IN  EACH  ROW  TYPE 

READILL'N.  '+0  )  (  NI  (  N  )  ,N  =  1  ,NJTYPE  ) 
^0  FORMAT ( 1012  ) 
C   READ  THE  CHORDWISE  DIVISION  DATA  FOR  EACH  ROM  TYPE 

DO  60  N  =  1, NJTYPE 

NIN  =  NKN) 

IF((NIN  .LT.  1)  .0".  (NIN  .GT.  20 ))  GO  TO  130 

READdUN,  50  )  (  XB.!  L  ,N  )  ,L  =  1  ,NIN  ) 
50  FORt1AT(8F10.6) 
60  CONTINUE 
C 
C   DEFINE  THE  NUMBER  OF  CHORDWISE  DIVISIONS  FOR  EACH  ROW 

DO  80   K  =  l.NROWS 

NJIK  I  =  0 

IF(IJTYPE(K)  .EQ.  0)  GO  TO  80 

UK  =  IJTYPEIK  ) 
70  NJ(K  )  =  NKIJK) 
80  CONTINUE 
C   CHECK  FOR  ROW  CONSISTENCY  ON  EITHER  SIDE  OF  JET 

I COUNT  =  " 

IF(NJ(  1) 

IFINJI  1) 

DO  ISO  K 

IF(NJIK) 

I F  (  N  J  (  K  ) 

IFdCOriP 

IFdCOUNT 

ICOUNT  =  ' 

IF(NJ(K  I 

I F  (  N  J  (  K  ) 

GO  TO  150 
160  ICOUNT  =  ICOUr>tT  +  1 
150  CONTINUE 

IFdCOUNT  .LT.  3)  GO  TO  170 

IR  =  1 

RETURN 
C 

C   THERE  IS  NO  JET  FOR  THIS  RUN 
90  DO  100  K  =  l.NROWS 

IJTYPE(K)  =  6 

NJIK  I  =  0 

100  corrriNUE 

IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  QUIT. 
110  HRITE(6,  120  )  NJTYPE 

120  FORMAT! 1H1/25HNUMBER  OF  JET  ROW  TYPES  =,I3) 
IR  =  2 
RETURN 
130  KRI7E(6,  140  1  NIN.N 

I'+O  F0RMATllHl/38X,I3,37H  JET  ELEMENTS  PRESCRIBED  FOR  ROW  TYPE, 13) 
IR  =  2 
RETURN 
170  WRITE( 6,190) 

190  FORMAT! 1H1,29H3  ROW  CONTINUITY  RULE  FAILURE) 
IR  =  2 
RETURN 
END 

SUBROUTINE  XLETRKIR) 
C 

C   THIS  SUBROUTINE  READS  THE  LEADING  AND  TRAILING  EDGE  COORDINATES 
C   AT  SPAf.'WISE  STATIONS  CONNECTED  BY  STRAIGHT  LEADING  AND  TRAILING  EDGES 
C   AND  INTERPOLATES  TO  GET  THE  COORDINATES  AT  INTERMEDIATE  SECTIONS 


C 


COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,NMAX ,NW(  <+0 ) ,NJ( 40  )  ,IW( 40 ) , I J( 40 ) 
C0MM0N/GE0M1/Y( 40  I  , CHORD! 40 ) .DELTA! 40  )  ,XB! 600 ) ,XI! 600 ), DELI  600  I , 


1  DI40),KK(600  l,ITYPE(600  ) 

C0MM0N/GE0M2/XLEAD! 40  I  ,XTRAILI 40 ) ,TANLEI 40 ) .TANTEI  40 ) 
COMnON/INDAT/LUN 

DIMErJSIOrj  YPI40  ),XLE140  ),XTRI40  ) 
C 

C   READ  XLEAD  AND  XTRAIL 
NX  =  0 

DO  30  N  =  l.NROWS 

READILUN,    10    )YP( N  )  ,XLEI N ) ,XTR( N ) 
10    FORriATI3F10.6) 
20   IFIYPIN)    .GT.    1.1)   GO   TO   40 

NX  =  NX  +  1 
30  CONTINUE 
C   CHECK  WHETHER  THE  Y  VALUES  ARE  REALISTIC 

40    IFI  ABSIYPI  1  )-Y(  1  )  t     .GT.    O.OOODGO    TO    110 

IFIABSIYP(NX)-YINROWS) )  .GT.  0 . 0001  )G0  TO  110 
C 
C   READ  THE  EXTRA  9  CARD  IF  NROWS  CARDS  HAVE  BEEN  INPUT 

IFINX  .EI3.  NROWS  I  READILUN,  10  )  EXTRA9 
C 

C   INTERPOLATE  FOR  XLEAD  AND  XTRAIL  AT  THE  INTERMEDIATE  SECTIONS 
K  =  0 

DO  100  N  =  1,NX 
50  K  =  K  +  1 

IFIK    .GT.    NROWS)   GO   TO    110 
IFI  ABS!YPIN)-YIK  )  t    .GT.    O.OOODGO  TO    70 
C      XLE    AND   XTR   WERE    INPUT    FOR   ROW   K 
60   XLEADIK )    =   XLEINI 
XTRAIL! K)    =   XTRINJ 
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GO  TO  100 
C   XLE  AND  XTR  MUST  BE  INTERPOLATED  FOR  ROW  K 
70  N'Ml  =  N  -  1 
80  YRATIO   =  (Y(K)-YPIN))  /  ( YP( NMl )-YP( N ) ) 

XLEAD(K)  =  XLE(N)  +  YRATIO  *  ( XLE ( NHl  l-XLE( N  )  ) 
90  XTRAIL(K)  =  XTR(N)  +  YRATIO  *  I  XTRl  tJlll  )-XTR(  N  )  ) 
GO  TO  50 
100  CONTINUE 
IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  RETURN. 
110  KftITE(6,  120  I 

120  FORMAT ( 1H1///20X,38HAN  INCONSISTENCY  HAS  BEEN  FOUND  IN  THE, 
1       '+2H  SECTIONAL  LEADING  AND  TRAILING  EDGE  INPUT) 
IR  =  2 
RETURN 
END 

SUBROUTINE  XLETR2 
C 

C   THIS  SUBROUTINE  READS  THE  FUNDAMENTAL  PLANFORM  PARAMETERS  FOR  A 
C   TRAPEZOIDAL  WING,  AND  CALCULATES  THE  LEADING  AND  TRAILING  EDGE 
C   COORDINATES  AT  EACH  Y  STATION.   NOTE  THAT  THE  PLANFORM  OUTLINE 
C   MUST  BE  SYMETRIC. 
C 

COMMON/MARK/NROWS  ,NROWSJ  ,NWT  ,NJT  ,NMAX,NW(  <+0  )  ,NJ(  "^O  )  ,IW(  40  )  ,IJ(  40  ) 
COriMON/JOHN/  ARE A, SPAN, ARATI0,TR, SWEEP, CREF,CMAC,CBAR,XMC.XCG 
C0MM0N/GE0M1/Y( 40 1 ,CH0RD( 40  t ,DELTA(  40 ) ,XB(  600 ) ,XI(  600  J ,DEL(  600 ) , 
1  D(40  ),KK(600  ),ITYPE(600  ) 

C0MM0N/GE0M2/XLEAD( 40 ) ,XTRAIL( 40 ) ,TANLE( 40 ) ,TANTE( 40 ) 
COMMON/INDAT/LUN 
C 

C   READ  THE  FUNDAMENTAL  PLANFORM  PARAMETERS 
READILUN,  10  )  ARATIO, SWEEP ,TR 
10  FORMAT14F10.6) 
C 

C   COMPUTE  THE  GENERAL  PLfiNFORM  CHARACTERISTICS 
B2  =  SPAN  /  2.00 
SN  =  SWEEP  /  57.295779 
20  CROOT  =  2.0  ^  SPAN  /  ( (1 . 0+TR  )*ARATIO  ) 
AREA  =  (1.0+TR)  *  CROOT  *  B2 

XLB2  =  0.250  *  (1.0-TR)  *  CROOT  +  B2  *  TAN(SW) 
30  CMAC  =  2.0  *  CROOT  *  (1.0  +  TR  +  TR^TR)  /  ( 3 . 0*( 1 . 0+TR ) ) 
IFICREF  .EQ.  0.0)  CREF  =  CMAC 
CBAR=AREA/SPAN 
C 

C   COMPUTE  THE  LEADING  AND  TRAILING  EDGE  COORDINATES 
40  DO  60  K  =  1,NR0WS 
YBAR  =  Y(K ) 

IF(YBAR  .LT.  0.0)  YBAR  =  -YBAR 
XLEADIK  )  =  XLB2  *  YBAR 
50  C  =  CROOT  *  ( 1.0-( 1.0-TR  )*YBAR) 

XTRAILIK)  =  XLEAD(K)  +  C 
60  CONTINUE 
RETURN 
END 

SUBROUTINE  NORMl 
C 

C   THIS  SUBROUTINE  NORMALIZES  ALL  WING  PLANFORM  GEOMETRY  BY  SPAN/2 
C 

COMMON/MARK/NROWS, NROWSJ,NWT,NJT ,NMAX,NW(  40 ) ,NJ(  40 ) ,IW(  40 ) ,IJ(  40 ) 
COMMON/JOHN/  AREA .SPAN, ARATIO ,TR -SWEEP , CREF ,Ct1AC,CBAR ,XMC.XCG 
C0MM0N/GE0M1/Y( 40 ) ,CHORD( 40  )  .DELTA ( 40 ) ,XB( bOO  )  ,XI I  600 ) ,DEL( 600 ) , 
1  D(40),KK(600  l,ITYPE(600 t 

COMMON/GEOM2/XLEAD(40 ) ,XTRAIH  40 ) ,TANLE( 40 ) ,TANTEl 40 ) 
10  B2  =  SPAN  /  2.C0 
AREA  =  AREA  /  B2J«*2 
CREF  =  CREF  /  B2 
20  XMC  =  XMC  /  B2 
XCG  =  XCG  /  B2 
DO  40  K  =  1,NR0NS 
30  XLEAD(K)  =  XLEADIK)  /  B2 

XTRAILIK)  =  XTRAILIK)  /  B2 
40  CONTirJUE 

SPAN  =2.00 

ARATIO  =  SPAN  *  SPAN  /  AREA 

RETURN 

E(^D 

SUBROUTINE  BOXS(IR) 

C   THIS  SUBROUTINE  CONSTRUCTS  THE  GEOMETRIC  PARAMETERS  FOR  ALL  THE 

C   EVD  ELEMENTS  ON  THE  WING  AND  JET 

C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/MARK/NROWS ,NROWSJ ,NNT ,NJT ,NriAX ,NWI 40  )  ,NJ( 40 ) ,IW1 40  )  ,IJ( 40  ) 
COI'iriON/JOHN/  AREA, SPAN, ARATIO, TR, SWEEP, CREF, CMAC, CBAR, XMC, XCG 
C0MM0N/GE0M1/Y( 40 ) ,CHORDI 40  )  ,DELTAI 40 ) ,XB( 600 ) ,XI I  600 ) ,DEL( 600 ) , 
1  D(40),KK(600 t,ITYPE(600) 

C0MN0N/GE0M2/XLEADI 40 ) ,XTRAILI 40 ) ,TANLE(  40 ) ,TANTE(  40 ) 
C0MM0N/SG1/XBW( 20,10 ),XBJ( 20 ,10 ) ,ICTYPE( 40 ) ,IJTYPE(  40 ) , 
1  NWTYPE,NJTYPE 

C 

C  CONSTRUCT  THE  ELEMENTS  ON  THE  WING 

C 

C  COMPUTE  SECTIONAL  DATA 

10  CHORD! 1)  =  XTRAIL(l)  -  XLEAD(l) 
DELTA(l)  =  1.00  -  Yd) 
CMAC  =  CHORD! 1)^*2  *  DELTA! 1 ) 
DO  30  K  =  2,NR0KS 
20  CHORD! K)  =  XTRAILIK)  -  XLEADIK) 

DELTAIK)  =  Y(K-l)  -  YIK)  -  DELTAIK-1) 
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IF(DELTA(K1  . LT .  0.0)  GO  TO  190 
CMAC  =  CMAC  +  CHORD! K)**2  *  DELTA(K) 
30  CONTirJUE 
C   CHECK  THE  VALIDITY  OF  THE  SECTIONAL  ALLIGNMENT 
YD  =  Y((-iROt;SI  -  DELTAINROWSI 

IFldSYCr,  .GE.  0)  .AfJD.  (ABS(YDI  .GT.  0.0001))  GO  TO  190 
IFIdSYMM  .EQ.  1)  .AND.  (ABS(YD  +  1.0)  .GT.  O.OOOD)  GO  TO  190 
DSUM  =  DELTA! 11 
DO  55  K  =  2,NR0WS 
YL  =  Y(K  )  +  DELTAIK 1 
YR  =  YIK-1)  -  DELTA(K-l) 
IF( ABS(YR-YL  )  . GT .  0.0001)  GO  TO  190 
DSUM  =  DSUM  +  DELTA(K) 
35  CONTINUE 

IF(ABS(DSUM-0.50)  .GT.  0.0001)  GO  TO  190 

CMAC  =  2.0  *  CMAC  /  AREA 

IFdSYMM  .LT.  1)  CMAC  =  2.0  *  CMAC 

IF(CREF  .LT.  0.0001)  CREF  =  CMAC 

CALL  TANSlTANLE,XLEAD,Y,NROWS) 

C   COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 
1  =  0 

DO  90   K  =  l.NROWS 
C   COMPUTE  X-COORDINATES 
NVIK  =  NW(K  I 
DO  50  L  =  1,NWK 
1  =  1  +  1 
ICK  =  ICTYPE(K) 
40  XB(I  )  =  XBWl L,ICK) 
50  CONTINUE 
C   COMPUTE  ALL  OTHER  PARAMETERS 
1=1-  NWK 
IH(K  )  =  I  +  1 
DO  80  L  =  1,NWK 
1  =  1  +  1 
60  KK(I  )  =  K 

DELII  )  =  XB(I  +  1)  -  XB(I  ) 
70  XI(I)  =  XLEAD(K)  +  XB(I  )  *  CHORD(K) 

ITYFE(I)  =  10 
80  CCrJTItJUE 
C   REDEFINE  THE  LAST  DEL  IN  THIS  SECTION,  AND  DEFINE  THE  L.E.  EVD  TYPE 
DELd  )  =  1.00  -  XBd  ) 
IHK  =  IK(K ) 
ITYPEdHK)  =  20 
90  CONTINUE 
NWT  =  I 
C 

C   CONSTRUCT  THE  ELEMENTS  ON  THE  JET  SHEET 
C 

C   COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 
IFIJETFLG  .NE.  0  1  :0  TO  180 
DO  170  K  =  1,NR0WS 
C   COMPUTE  X-COORDINATES 
IJ(K)  =  0 
100  NJK  =  NJ(K) 

IF(NJK  .EQ.  0)  GO  TO  170 
DO  120  L  =  1,NJK 
1  =  1  +  1 
UK  =  IJTYPE(K) 
110  XBd  )  =  XBJl  L,IJK) 
120  CONTINUE 
C   COMPUTE  ALL  OTHER  PARAMETERS 
1=1-  NJK 
130  IJ(K  )  =  I  +  1 

DO  160  L  =  1,NJK 
1  =  1  +  1 
140  KKd  )  =  K 

DELd  )  =  XBd  +  1  )  -  XBd) 
150  XII  I  I  =  XLEAD(K)  ♦  XBd)  »  CHORD(K) 

ITYPEd)  =  10 
160  CONTINUE 
C  REDEFINE  THE  LAST  DEL  AND  EVD  TYPE  AND  THE  D  VALUE  FOR  THIS  SECTION 
DELd  )  =  I.OEIO 
ITYPEd  )  =  30 
D(K  )  =  Xld  )  -  XTRAILIK  ) 
170  CONTINUE 
180  NMAX  =  I 

IF(NMAX  .GT.  600)  GO  TO  210 
NJT  =  NMAX  -  NWT 
IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  QUIT. 
190  KRITE(6,  200  ) 

200  FORMAT! 1H1/38X,44HPLEASE  CHECK  YOUR  SECTION  LOCATION  (Y)  INPUT) 
IR  =  2 
RETURN 

210  WRITE! 6,  220  )  NMAX 

220  FORMAT! 1H1/48X, 14, 21H  IS  TOO  MANY  ELEMENTS) 
IR  =  2 
RETURN 
END 

SUBROUTINE  BOXJI NEWMAX,IR ) 
C 

C   THIS  SUBROUTINE  COMPUTES  THE  JET  BLOWING  FACTOR  CMUP 
C 

COMMON/MARK/NROWS ,NROWSJ , NWT , NJT, NMAX ,NW1 40 ) ,NJI 40 ) ,IWI 40  )  ,IJI 40 ) 
COMMON/GEOMl/Y! 40  ) , CHORD! 40  ) , DELTA! 40  )  ,XBI 606  )  ,XI! 66o  ), DEL! 600 ) , 
1  D!40),KK!o00),ITYPE!600) 
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COMMON/JCASE/CMUI  ^0  )  ,CMUP(  '+0  )  ,CMUPP(  '+0  ) 
C 

C   COMPUTE  THE  NEW  CMUP  AND  SAVE  THE  OLD  VALUES  AS  CMUPP 
10  NEKMAX  =  NMAX 
ICOUNT  =  0 
DO  30  K  =  1,NR0HS 
CMUPP(K)  =  CtlUP(K) 
IF(NJ(K)  .EQ.  0)  GO  TO  30 
IF(CMU(K)  .LT.  0.0001)  GO  TO  20 
CMUP(K)  =  2.00  /  (CHORD(K)*CMU(K)) 
GO  TO  30 
20  ICOUNT  =  ICOUNT  +  1 

CMUP(K)  =0.00 
30  CONTINUE 

HRITE(6,  40  )  (K,CMU(K),K=1,NR0WS) 
40  FORMAT( Ih1,40X,10I4H****)/  41X, 

1  40H*   SECTIONAL  JET  BLOWING  COEFFICIENTS   */41X,10( 4H**»* )// 

2  53X,3HROW,5X,3HCnU,40(/53X,I2,F12.6)) 
IFdCOUNT  .EQ.  0)  60  TO  50 

IF( ICOUNT  .LT.  NROWSJ)  GO  TO  60 
NEWMAX  =  NWT 
50  IR  =  1 
RETURN 

C  AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  TRY  AGAIN. 

60  WRITE! 6,  70  ) 

70  FORMAT(lH0,43X,35HA  ZERO  VALUE  OF  CMU  HAS  BEEN  INPUT., 
1     33H  THIS  CMU  CASE  HAS  BEEN  IGNORED.  ) 
IR  =  2 
RETURN 
END 

SUBROUTINE  TANS( TAN,X,Y ,NROWS ) 
C 

C  THIS  SUBROUTINE  COMPUTES  THE  TANGENT  OF  THE  LEADING  OR  TRAILING  EGDE 
C   SWEEP  ANGLE  AT  THE  CENTERLINE  OF  EACH  SECTION.   IT  IS  ACCURATE  FOR 
C   SECTIONS  WITH  STRAIGHT  EDGES  IN  GROUPS  OF  THREE  OR  MORE. 
C   IT  IS  ONLY  APPROXIHATE  FOR  CURVED  EDGES. 

C   IT  MAY  RESULT  IN  ERRORS  FOR  SECTIONS  ADJACENT  TO  WINS  BREAKS, 
C   IF  STRAIGHT  EDGES  ARE  IN  ADJACENT  GROUPS  OF  ONLY  ONE  OR  TWO. 


C 


DIMENSION  TAN( 40  )  ,X( 40  )  ,Y( 40  )  ,S( 40  ) 
SLOP(XR,XL,YR,YL)  =  (XR-XL)  /  (YR-YL) 


DO  50  K  =  1,NR0WS 

KR  =  K-1 

KL  =  K 

IF(K  .GT.  1)  GO  TO  30 

KR  =  1 

KL  =  2 
30  S(K1  =  SLOP(X(KR),X(KL),Y(KR),Y(KL)) 
50  CONTINUE 

DO  200  K  =  1,NR0WS 

IF(K  .LT.  3  1  GO  TO  150 

IFIK  .EQ.  NROHS)  GO  TO  150 

IF(K  .EQ.  (NRCWS-ll)  GO  TO  160 
C   CHECK  WHETHER  THE  RIGHT  OR  LEFT  SIDES  ARE  STRAIGHT 

IF(ABS(S(K1  -  S(K-1)1  .LT.  O.OOll  GO  TO  150 

IF(ABS(S(K+1)  -  S(K+2))  . LT .  0.001)  GO  TO  160 
C   NEITHER  SIDE  IS  CONCLUSIVELY  STRAIGHT  -  CHECK  FURTHER  LEFT  AND  RIGHT 

IFIK  .EQ.  3)  GO  TO  160 

IF(K  .EQ.  (NROWS-2))  GO  TO  150 

IFIABS(S(K-1  )  -  S(K-2))  . LT .  0.001)  GO  TO  160 

IF( ABS(S(K+2)  -  S(K+3))  . LT .  0.001)  GO  TO  150 
C   THE  TRUE  SHAPE  CANNOT  BE  DETERMINED  -  GIVE  UP  AND  TAKE  THE  AVERAGE 

TAN(K)  =  (S(K)  +  S(K+1))  /  2.00 

GO  TO  200 
C   THE  RIGHT  EDGE  IS  STRAIGHT 
150  TAN(K  )  =  S(K) 

60  TO  200 
C   THE  LEFT  EDGE  IS  STRA'^GHT 
160  TAN(K)  =  S(K+1 ) 
200  CONTINUE 

RETURN 

END 

SUBROUTINE  INCASE ( LCASE .NOALFA ) 
C 

C   THIS  SUBROUTINE  READS  iHE  FUNDAMENTAL  GEOMETRIC  CASE  DATA 
C 

COMMON/MARK/NRONS , NROWSJ ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ( 40  )  ,IW( 40 ) >IJ( 40  ) 

COMMON/FC ASE 1/INPUTT , INPUTH , INPUTD , INPUTC , INPUTB 

C0MM0N/FCASE2/TST( 40 ,10 ) ,HL( 40 ,10 ) ,DJ( 40 ) ,ACTE(  40 ) ,AC( 20 .40 ) , 
1  XHB( 4 ,40 ) ,BET( 4 ,40 ) ,IFS( 4 ,40 ) ,ICT ( 40 ) ,IHT( 40  )  ,NCT ,NHT 

COMMON/INDAT/LUN 

DIMENSION  NI( 10), DUMMY (40) 

C   INITIALIZE  SECTIONAL  DATA 

DO  30  K  =  l.NROWS 
10  TST(K,LCASE)  =0.00 

HL(K,LCASE)  =  0.00 

DJ(K)  =  0.00 

ACTE(K)  =  0.00 

ICT(K)  =  0 

IHT(K)  =  0 
C  INITIALIZE  THE  CAMBER  ANGLES 

NWK  =  NW(K) 

DO  20  L  =  1,NWK 

AC(L,K)  =  0.00 
20  CONTINUE 
30  CONTIfJUE 
C   INITIALIZE  THE  HINGE  DATA 

DO  SO  N  =  1,NR0WS 
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DO  <+0  L  =  1,<+ 
XHBl L,N1  =  6.00 
BET( L,N)  =  0.00 
^0  CONTINUE 
50  CONTINUE 
C 

IF((LCASE  .EQ.  1)  .AND.  (NOALFA  .GT.  0))  RETURN 
C 
C   READ  FUNDAMENTAL  CASE  CONTROL  FLAGS 

READ(LUN,  60  )  INPUTT ,INPUTH ,INPUTD ,INPUTC , INPUTS 
60  F0RHATI5I2  ) 
C 
C   READ  SECTIONAL  TWIST,  HEIGHT  AND  JET  DEFLECTION  DATA 

IFdNPUTT  .NE.  0)  READILUN,  70  )  (  TSTl  K  ,LCASE  )  ,K=1  ,NR0WS  ) 
70  FORMAT! 8F10. 6) 

IFdtJPUTH  .NE.  0)  READfLUN,  70  )  (  HL(  K  ,LCASE  )  ,K  =  1  ,NROWS  ) 
IFIINPUTD  .EQ.  0 )  GO  TO  90 
READILUN,  70  )  ( DUMMYf K  )  ,K  =  1 ,NROWSJ ) 
C   DISTRIBUTE  THE  DUMMY  VALUES  PROPERLY  IN  THE  DJ  ARRAY 
KP  =  0 

DO  80  K  =  IjNROWS 
IF(NJ(K)  .EQ.  0)  GO  TO  80 
KP  =  KP  +  1 
DJ(K  )  =  DUMMY(KP) 
80  CONTIh-IUE 
C 

C   READ  THE  CAMBER  ANGLES,  IN  DEGREES 
90  IFdNPUTC  .EQ.  0)  GO  TO  160 

READILUN,  100  )  ( ICT( K  )  ,K  =  1 ,NROWS ) 
100  FORMAT  ("+612  ) 
NCT  =  0 

DO    110    K    =    l.NROWS 
IF(ICT(K)     .EQ.    0  1    GO   TO    110 
IFdCTfKl    .GT.    NCT)   NCT    =    ICT(K) 
ICK    =    ICT(K  ) 
NIdCK  I    =   NW(K) 
110    COr«ITI(!UE 

DO  ISO  N  =  1,NCT 
NIN  -    HUH) 
120  READILUN,  70  )  ( ACl L ,N ) ,L=1 ,NIN ) 
ISO  CONTINUE 

1'40  IF(NROHSJ  .GT.  0)  READ(  LUN,  70  )  (  DUMMY!  K  ).K=1  .NROWSJ  ) 
C   DISTRIBUTE  THE  DUMMY  VALUES  PROPERLY  IN  THE  ACTE  ARRAY 
KP  =  0 

DO  150  K  =  1,NR0WS 
IF(NJ(K)  .EQ.  0)  GO  TO  150 
KP  =  KP  +  1 
ACTE(K)  =  DUMMY (KP) 
150  CONTINUE 
C 

C   READ  THE  HINGE  LOCATION,  TYPE  AND  TURNING  ANGLE  DATA 
160  IFdNPUTB  .EQ.  0)  GO  TO  210 
170  READILUN,  100  )  (IHTI K  )  ,K  =  1 ,NROWS  ) 
NHT  =  0 

DO  180  K  =  l.NROWS 
IFIIHTIK)  .GT.  NHT)  NHT  =  IHT(K) 
180  CONTINUE 

DO  200  N  =  l.NHT 

READILUN,  190  )  (XHB(L,N),IFS(L,N),BET(L,N),L  =  1,<+) 
190  FORMATI4(F10.6,I1,F9.6)) 
200  CON'TINUE 
210  RETURN 
END 

SUBROUTINE  BEECEEI LCASE , NOALFA ,IR ) 
C 

C   THIS  SUBROUTINE  CONSTRUCTS  THE  BOUNDARY  CONDITION  ARRAYS  FOR  THE 
C   FUNDAMENTAL  GEOMETRIC  CASES 
C 

COMI10N/MARK/NROWS,NRONSJ,NHT,NJT,NMAX,NW[iiO).NJ('^0),IW(^0),IJ(^0) 
COMMON/GEOM1/Y(40  ),CHORD(t0  I.DELTAIhO  1  ,XB( 606  )  ,XI I  600  I, DELI  600), 
1  DIAO  ),KK( bOO  ),ITYPEI600 1 

C0MM0N/FCASE1/INPUTT,INPUTH,INPUTD,INPUTC,IN°UTB 
COrU10rj/FCASE2/TST('^0,10),HL('^0,10  I.DJI^O  ) ,  ACTE  I  "40  )  ,  ACI  20.^0  ), 
1  XHBl  H, 46  ),B£Tl4,<+6t,lFSI'^,'40  ),ICTI'+0),IHT('+0  I,NCT,NHT 

COMMON/FCASES/EPSI  600,10  ),BETAIo00,10  )  ,THETAl '♦O  ,10  )  ,THS(  <+0  ,10  ) 
DIMENSION  NHI<+0) 
C 

C   INITIALIZE  THE  BOUNDARY  CONDITION  ANGLES 
DO  20  I  =  l.NMAX 
10  EPSd.LCASE)  =  0.00 

BETAII,LCASE  )  =  0.00 
20  COrJTINUE 

DO  30  K  =  l.NROWS 
THETAIK.LCASE )  =  0.00 
THS(K,LCASE )  =  0.00 
30  CONTINUE 
C 

C   DEFINE  THE  ANGLES  FOR  THE  ANGLE-OF-ATTACK  FUNDAMENTAL  CASE 
IFKLCASE  .GT.  1)  ,  OR .  (NOALFA  .EQ.  0))  GO  TO  60 
DO  40  I  =  1,NNT 
EPSd,l  1  =  1.00 
40  CONTINUE 

DO  50  K  =  1,NR0WS 

IFINJ(K)  .GT.  0)  THETA(K,1)  =  1.000 
50  CONTINUE 
IR  =  1 
RETURN 
C 

C  DEFINE  THE  ANGLES  FOR  ALL  REMAINING  FUNDAMENTAL  CASES 
C 
C   CAMBER  CONTRIBUTION 
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60   IFdNPUTC    .EQ.    0)    GO   TO    110 
1=0 

DO    100    K    =    1,NR0WS 
IF(NJ(K)    .EQ.    0 )    GO   TO    70 
THETA(K,LCASE )    =   ACTE(K) 
70   KHK    =   KW(K ) 

IFdCTCK)    .EQ.    0)    GO   TO    90 
DO   80    L    =    1,NWK 
1    =    1    +    1 
ICK    =    ICT(K) 

EPS(I,LCASE)    =   AC(L,ICK) 
80    CONTINUE 

GO  TO  100 
90  I  =  I  +  NNK 
100  CONTINUE 
C 
C   TWIST  CONTRIBUTION 

110  IFdNPUTT  .EQ.  0)  GO  TO  160 
1=0 

DO  150  K  =  1,NR0WS 
IF(NJ(K)  .EQ.  0)  GO  TO  120 

THETA(K,LCASE)  =  THETA( K , LCASE  )  +  TST(K,LCASE) 
120  NWK  =  NW(K) 

DO  140  L  =  1,NWK 
1  =  1  +  1 
130  EPS(I,LCASE)  =  EPS(I,LCASE)  +  TST(K, LCASE) 
l<+0  CONTINUE 
150  CONTINUE 
C 

C   FLAP  AND  SLAT  DEFLECTION  CONTRIBUTION 
C 

160  IFdNPUTB  .EQ.  0)  GO  TO  320 
C 

C   SUM  UP  THE  TOTAL  SLAT  ANGLE  AND  FIND  THE  NUMBER  OF  HINGES  ON  EACH  ROW 
DO  IPO  K  =  1,NR0WS 
NH(K  )  =  0 

IFdHTlK)  .EQ.  0)  GO  TO  190 
DO  180  L  =  1,4 
170  N  =  IHT(K) 

IF(XHBIL,N)  .LT.  0.001)  GO  TO  180 
NHIK)  =  NH(K)  +  1 

IFdFS(L,N)  .GT.  0)  THS(K, LCASE)  =  THSIK, LCASE)  +  BET(L,N) 
180  CONTINUE 
190  CONTINUE 
C 

C   COMPUTE  INCIDENCE  OF  EACH  ELEMENT  AND  FIND  TURNING  ANGLE  AND  EVD  TYPE 
C   FOR  EACH  HINGE  ELEMENT 
1  =  0 

DO  310  K  =  1,NR0WS 
NN'K  =  NW(K) 
N  =  IHT(K) 
200  IF(N  .EQ.  0)  GO  TO  300 
LSTART  =  1 
B  =  0.0 
NHK  =  NHIK) 
210  IF(NHK  .EQ.  0)  GO  TO  360 
C   CYCLE  THE  HINGE  POINTS  IN  CHORDWISE  ORDER 

DO  270  LH  =  1,NHK 
C  CYCLE  THE  VORTEX  POINTS  IN  CHORDWISE  ORDER,  LOOKING  FOR  NEXT  HINGE 
DO  250  L  =  LSTART, NWK 
1  =  1  +  1 
C   CHECK  ON  RELATIVE  LOCATION  OF  VORTEX  POINT  AND  HINGE  POINT 
220  XDIFF  =  XHB(LH,N)  -  XBd  ) 

IF(ABS(XDIFF)  . LT .  0.001)  GO  TO  230 
IF(XDIFF  .GT.  0.001)  60  TO  2<+0 
IFIXDIFF  .LT.  -0.001)  GO  TO  360 
C   THE  ITH  VORTEX  POINT  IS  A  HINGE  POINT 
230  B  =  B  +  BET(LH,N) 

BETAd, LCASE)  =  BETfLH,N1 

EPSd, LCASE)  =  EPSd, LCASE)  -  THS(K, LCASE)  +  B 
ITYPEd  )  =  42 

IF(IFS(LH,N)  .GT.  0)  ITYPE(I)  =  41 
GO  TO  260 
C   THE  ITH  VORTEX  POINT  IS  NOT  A  HINGE  POINT 

240  EPSd, LCASE)  =  EPSd, LCASE)  -  THS(K, LCASE)  +  B 
250  CONTINUE 

260  LSTART  =  I  -  IW(K)  +  1 
270  CONTINUE 
C   DEFINE  THE  INCIDENCE  ANGLE  FOR  REMAINING  POINTS  BEHIND  THE  LAST  HINGE 
IF( LSTART  .EQ.  NWK)  GO  TO  290 
LSTART  =  LSTART  +  1 
DO  280  L  =  LSTART, NWK 
1  =  1  +  1 

EPSd, LCASE)  =  EPSd, LCASE)  -  THS(K, LCASE)  +  B 
280  CONTINUE 
C   COMPUTE  THE  EFFECT  OF  THE  HINGES  ON  THE  JET  ANGLE 

290  IF(NJ(K)  .GT.   0)  THETAl K, LCASE  )  =  THETA( K, LCASE  )-THS( K, LCASE  )+B 

GO  TO  310 
300  I  =  I  +  NWK 
310  CONTINUE 
C 

C  JET  DEFLECTION  CONTRIBUTION 
C 

320  IFdNPUTD  .EQ.  0)  GO  TO  350 
DO  340  K  =  1,NR0WS 
IF(NJ(K)  .EQ.  0)  GO  TO  340 
I  =  IJIK) 
330  BETAd, LCASE)  =  DJ(K) 

IF(ABS(DJ(K))  .GT.  0.0001)  ITYPEd)  =  43 
THETAl K, LCASE)  =  THETAl K  , LCASE  )  +  DJ(K) 
340  CONTINUE 
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350  IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  QUIT. 
C 

160  WRITE(6,  370  !  LCASE ,K ,N 

370  F0RMAT(iHl///'+5X,26HFUNDAMENTAL  GEOMETRIC  CASE, 13/ 

1  18X,50HAN  INCOMSISTEtJCY  HAS  BEEN  FOUND  IN  THE  HINGE  INPUT, 

2  ISH  DATA  FOR  WIMG  ROW,I3,10H,  RON  TYPE, 13) 
IR  =  2 

RETURN 

END 

SUBROUTINE  OUTK  LCASE  ) 

C 

C   THIS  SUBROUTINE  PRINTS  OUT  THE  GEOMETRIC  DATA  DERIVED  FROM  THE 

C   SECTIONAL  METHOD  INPUT 

C 

COMMON/MATHEH/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMIiON/MARK/NROWS  ,NROWSJ  ,NWT  ,NJT  ,NMAX,NW(^0  )  ,NJ( '+0  )  ,IW(  ^+0  )  ,IJ(  40  ) 
COMMON    /LUKE/    TITLE(20j 

COIlriON/JOHrj/   AREA  .SPAN  ,ARATIO,TR  , SWEEP  ,CREF  ,CMAC  ,CBAR  ,XMC,XCG 
C0r«10N/GE0Ml/Y(  "+0  ) , CHORD!  40  )  ,DELTA(  40  )  ,XBl  600  )  ,XI(  600  ) , DEL (  600  ) , 
1  D('+0),KK(600),ITYPE(600  ) 

C0MM0N/GE0M2/XLEAD( 40  )  ,XTRAIL( 40  )  ,TANLE( 40 ) ,TANTE(  40 ) 
C0MM0N/FCASE2/TST( 40 ,10  )  ,HL1 40,10  )  ,DJ( 40  )  ,ACTE( 40  )  ,AC( 20,40 ) , 
1  XHB(4,46  ),BETI4,40  ),IFSI4,40  I  ,ICT( 40 ) ,IHT( 40 ) ,NCT ,NHT 

C0Mr^0N/FCASE3/EPS( 600,10  ), BETA ( 600 ,10  )  ,THETA( 40 ,10  )  ,THS( 40 ,10  ) 
COMMON/INDATA/ARE,SPA,CRE,XM,CMA,XC,NRO,NC,ISY,IPR,JET,IGT,IHI 

C   PRINT  CASE  TITLE  AND  GENERAL  GEOMETRIC  PARAMETERS 
IF( LCASE  .GT.  1  )  GO  TO  60 
10  WRITE! 6,  20  )TITLE 
20  FORMAT! iHl,39X,10(4H**^*)/ 

1  40X,40H^   EVD   JET  -  WING  COMPUTER   PROGRAM   */ 

2  40X,10(4H****)///20X,20A4) 
CMA  =  CMAC  *  SPA  /  2.0 

30  WRITE! 6,  40  )  AREA , ARE , SPAN , SPA ,CREF ,CRE ,XMC ,XM, CMAC , CMA, ARATIO, 

1  ARATIO, XCG.XC 

40  FORMAT! 1H0//54X,4HUSED,11X,5HINPUT  / 

1  41X,6HAREA  =,2Fl5.6  /  41X,6HSPAN  =,2F15.6  / 

2  41X,6HCREF  =,2F15.b  /  42X,5HXnC  =,2F15.6  / 

3  41X,6HCMAC  =.2F15.6  /  39X,6HARATI0  =,2F15.6  / 

4  42X,5HXCG  =,^F15.6) 

WRITE(6,    50     )    NROHS,r^RO,NCASES,NC,ISYMM,ISY,IPRINT,IPR,JETFLG,JET, 
1  IGTYPE,IGT,IHIfJGe,IHI,NWT,NJT,W1AX 

50    FORMAT!  IHO/   48X,7HN'RCWS    =,I3,7X,I3   /   47X,8HNCASES    =,I3,7X,I3   / 

1  48X,7HISYMri    =,I3,7X,I3    /   47X,8HIPRINT    =,I3,7X,I3    / 

2  47X,8HJETFLG  =,I3,7X,I3  /  47X,8HIGTYPE  =,I3,7X,I3  / 

3  47X,8HIHIf,'GE  =,I3,7X,I3  /// 

<♦  43X,25HNUr-.BER   OF   WING   ELEMENTS    =,I4   / 

5  43X,25HNUf'3ER    OF    JET    ELEtlENTS      =,I4   / 

6  42X,2bHTOTAL  NUMBER  OF  ELEMENTS  =,I4) 
60  J  =  0 

JJ  =  NNT 
C 

C   PRINT  FUNDAMENTAL  CASE  HEADER 
WRITE! 6,  70  )  LCASE 
70  FORMAT! IHl , 23X , IH^ .191 4H^^*x  1/ 

1  24X,£4H*   ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR, 

2  17H  FUNDAMENTAL  CASE, 13, 3H   */24X,lH*,19( 4H****  )  ) 
ILINES  =  3 

DO  260  K  =  1,NR0WS 

C   PRINT  SECTIONAL  DATA 

WRITE!fe,  80  )  K,YIK),DELTA!K),XLEAD!K),XTRAIL!K),CHORD!K),TANLEIK) 
80  FORMAT! 1H0,11H**«  SECTION, 13 ,4h  ***,2X,3HY  =  ,F10 . 6  ,2X, 7HDELTA  =, 

1  F10.6,2X.7HXLEAD  = ,F10 . 6 , 2X,8HXTRAIL  = ,F10. 6 ,2X,7HCH0RD  =,F10.6, 

2  2X,7HTA^JLE  =,F10.6) 
C 

C   PRINT  CHORDWISE  DATA  ON  WING 

NWK  =  NWIK ) 

WRITEI6,  90  )  NWK, TST(K, LCASE ),HLIK, LCASE), THS(K, LCASE) 
90  FORMAT! lH0,21HWIN!5  ELEMENTS    NW  =,I3,5X,  7HTWIST  =,F10.6,5X, 
1  4HHL  =,F10.6,5X,  9HTHETA  S  =,F10.6) 

WRITE!6,  100  )  !XB( J  +  L  I.L  =  1,NWK  I 
100  FORMAT! IH  , 14X,2HXB , lOFll . 6  /  17X,10F11.6) 

IF!  LCASE  .1ST.  ll  GO  TO  130 

WRITE!6,  110  I  !XIl J  +  L  ),L  =  1,NWK) 
110  FORMAT! IH  ,14X,  2KXI , lOFll . 6/17X,10Fll . 6  ) 

WRITE!6,  1^0  )  (DEL! J+L), L=l, NWK) 
120  FORMAT! iH  ,  13X,3HDEL ,10Fll . 6/17X,10Fll . 6 ) 
130  IF!ICT!K)  .EQ.  0)  GO  TO  150 

ICK  -  ICT ( K  ) 

WRITi!6,  140  )  1ACIL,ICK),L  =  1,NI'1K) 
140  FORMAT! iH  ,10X,6HCAMBER ,10F11 . 6/17X,10Fll .6 ) 
150  WRITE!6,  160  )  I  EPS! J  +  L  ,LCASE  ) , L  =  l ,NWK  ) 
160  FORMAT! IH  ,13X,3HEPS , lOFll . 6/17X .lOFll . 6 ) 

WRITE! 6.  170  )  ( BETA! J  +  L , LCASE  )  ,L  =  1 , NWK  ) 
170  FORMAKlH  .12X,4HBETA  ,  lOFll .  6/17X,10Fll .  6  ) 

WRITE!6,  l60  )  (ITYPE! J+L),L=1,NWK) 
180  FORMAKIH  ,12X,4HTYPE  ,10(  3X,I2,6X  )/17X,  10(  3X,I2,6X  ) ) 

J  =  J  +  NWK 

IL  =  1 

IF(NWK  .GT.  9)  IL  =  2 

ILINES  =  ILINES  +  4  +  4*IL 

IF! LCASE  .EQ.  1)  ILINES  =  ILINES  +  2*IL 
C 
C   PRINT  CHORDWISE  DATA  ON  JET 

NJK  =  NJ!K) 

IF!NJK  .GT.  0)  GO  TO  200 

WRITE! 6,  190  ) 


120 


190  FORMATCIH  .8X,19HTHIS  RON  HAS  NO  JET) 

ILINES  =  ILINES  +  1 

GO  TO  220 
200  WRITE(6,  210  )  NJf.  ,D(  K  )  ,DJ(  K  )  ,ACTE  (  K  I  ,THETA(  K  ,  LCASE  ) 
210  FORMATl 1H0,1X,20HJET  ELEMENTS    NJ  =,I5,5X,3HD  = , FIO . 6 ,5X,4HDJ  =, 
1    F10.6,5X,6HACTE  = ,F10 . 6 ,5X , 7HTHETA  =,F10.6J 

WRITE(6,  106  )  1XB( JJ+L),L=1,NJK) 

IF( LCASE  .GT.  1)  GO  TO  2^0 

WRITE(6,  110  )  (XI( JJ+L ),L=1,NJK1 

WRITE(6,  120  )  (DEL(  JJ  +  L),L  =  i,NJi;) 
220  WRITE(6,  170  )  ( BETA( JJ  +  L ,LCA$E J ,L  =  1 ,NJK  ) 

WRITEIb,  180  )  (ITYPEIJJ+L),L=1,NJKJ 

JJ  =  JJ  +  NJK 

IL  =  1 


IF(NJK  .EQ.  101  IL  =  2 
ILINES  =  ILINES  +  1  +  3  *  IL 


IF( LCASE  .EQ.  1)  ILINES  =  ILINES  +  2*IL 
220  IF(K  .EQ.  NROWS)  GO  TO  260 

NHKl  =  NW(K+1) 

IL  =  1 

IF(NKK1  .GT.  9)  IL  =  2 

NEXT  =   ^    *    ^)fIL 

IF(  LCASE  .EQ.  1)  NEXT  =  NEXT  +  2J(IL 

NJKl  =  NJ(K+1) 

IL  =  1 

IFINJKl  .EQ.  10)  IL  =  2 

NEXT  =  NEXT  ♦  1 

IFINJKl  .EQ.  0)  GO  TO  240 

NEXT  =  NEXT  +  1  +  2*1 L 

IF( LCASE  .EQ.  1)  NEXT  =  NEXT  +  2*IL 
2^0    IF( (55-ILINES)  .GE.  NEXT)  GO  TO  260 

WRITE(6,  250  ) 
250  FORtlAT(lHl) 

ILINES  =  1 
260  CONTINUE 

RETURN 

END 

SUBROUTINE  INCOMPt NCASES,IR ) 

C   THIS  SUBROUTINE  READS  IN  THE  COMPOSITE  CASE  REQUIREMENTS 

C   WHICH  DEFINE  THE  FUNDAMENTAL  CASES  AND  THEIR  DEFLECTION  MAGNITUDE 

C   FOR  SUPERPOSITION  IN  UP  TO  2^   COiSINATIONS 

C 

COMMON/COMPOS/FACTORl  10,2"+)  ,rJCC 

COMMON/INDAT/LUN 

DIMENSION  FUNNY110),ND(10) 

C   INITIALIZE  THE  ARRAY  OF  FUNDAMENTAL  CASE  DEFLECTIONS 
DO  20  M  =  1,2-^ 
DO  10  N  =  1,10 
FACTOR{N,M)  =0.00 
10  CONTINUE 
20  CONTINUE 
C 

C   READ  THE  COMPOSITE  CASE  DATA,  CONSISTING  OF  FUNDAMENTAL  CASE 
C   DEFLECTIONS,  IN  DEGREES 
NCC  =  0 
20  NCC  =  NCC  +  1 

READ(LUN,  <40,  END  =  120  )  (  ND(  N  )  ,FUNNY(  N  )  ,N=1 ,10  ) 
UO    FORMATl  l6(BZ, 12, F6.'+n 
C   CHECK  THE  VALIDITY  OF  THE  DATA 
50  IF(ND(1)  .GT.  10  1  GO  TO  100 
IF(NCC  .GT.  24)  GO  TO  110 
DO  90  N  =  1,10 

IF(ND(N)  .GT.  NCASES)  GO  TO  70 
IF(ND(N)  .LT.  1 )  GO  TO  90 
C   THE  DATA  IS  OK.   DEFirJE  FACTOR. 
NDN  =  ND(N1 
60  FACTOR(NDN,NCC)  =  FUNNYIN) 

GO  TO  90 
70  HRITE(6,  80  ) 
80  FORMAT( 1H0,22X,76HAN  INCORRECT  COMPOSITE  CASE  INPUT  VALUE  HAS  BEEN 

1  FOUr.'D.   IT  WILL  BE  IGNORED.) 
90  CONTINUE 
GO  TO  30 
C   THE  END  OF  THE  INPUT  DATA  HAS  BEEN  REACHED 
100  NCC  =  NCC  -  1 

IF(NCC  .GT.  24)  NCC  =  24 
IR  =  1 
RETURN 
C   TOO  MANY  COMPOSITE  CASES  HAVE  BEEN  REQUESTED.   READ  ON  UNTIL  AN  END 
C   CARD  IS  FOUND. 
110  WRITE(6,  120  ) 

120  FORMAT! iH0,20X,47HMORE  THAN  24  COMPOSITE  CASES  HAVE  BEEN  INPUT.   , 
1       24HSUBSEQUENT  INPUTS  WILL  BE  IGNORED.) 
GO  TO  20 
C 

C   AN  END  OF  FILE  HAS  BEEN  READ.   PRINT  A  MESSAGE  AND  QUIT. 
120  WRITE(6,  140  ) 

140  FORMAKIHI///  21X,  35HAN  END  OF  FILE  HAS  BEEN  READ  DURING, 
1      21H  COMPOSITE  CASE  INPUT) 
IR  =  2 
RETURN 
END 

SUBROUTINE  BLOWIN( JETFLG,IR ) 
C 

C  THIS  SUBROUTINE  READS  THE  SECTIONAL  JET  BLOWING  RATES 
C   CMUIK)  =  J  /  (Q  *  CHORD(K)) 


C 


COMMON/MARK/NROWS ,NROWSJ ,NWT ,NJT ,NMAX ,NW( 40  )  ,NJ( 40  )  ,IW( 40  )  ,IJl 40  ) 
COMMON/ JCASE/CMU( 40 ) ,CMUP( 40 ) ,CMUPP( 40  ) 
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c 


DIMENSION  DCMUl^O) 
COMMOM/INDAT/LUN 


IF( JETFLG  .NE.  Ot  GO  TO  20 
C   READ  THE  CMU  DATA  OrJLY  FOR  THOSE  SECTIONS  WHICH  HAVE  A  JET 
READi  LL:-.',  10,  END=bO  )  (  DCMUI  K  )  ,K=1  ,NROWSJ  ) 
10  FORMAT! 8F10. 6) 

20  IF(DCriJ(l)  .LT.  800.0)  GO  TO  30 
IR  =  2 
RETURN 
C 

C   REARRANGE  THE  DATA  INTO  THE  PROPER  SEQUENCE 
30  KP  =  0 

DO  50  K  =  l.NROWS 
40  CMUIKl  =  O.OO 

IF(NJ(K)  .EQ.  0)  GO  TO  50 
KP  =  KP  +  1 
CMUIK )  =  DCMU(KP) 
50  CONTINUE 
IR  =  1 
RETURN 
C 

C   AN  END  OF  FILE  HAS  BEEN  READ.   THIS  RUN  IS  COMPLETELY  FINISHED. 
60  WRITE! 6,  70  ) 

70  FORMATI 1H1///41X,37HN0  MORE  CMU  CASES  HAVE  BEEN  REQUESTED) 
IR  =  3 
RETURN 
END 

SUBROUTINE  STAGES 
C 

C   THIS  PROGRAM  CONTROLS  THE  FORMATION  AND  SOLLTTION  OF 
C   THE  SYSTEM  OF  LINEAR  EQUATIONS 
C 

COMMON/SPIRIT/  NEWMAX ,NEWCMU ,NOALFA , LOGIC ,IR 

C   FORM  THE  SYSTEM  OF  LINEAR  EQUATIONS 

10  CALL  STG2D 
C 

C   SOLVE  THE  SYSTEM  OF  LINEAR  EQUATIONS 
20  CALL  STG2S 

IF(IR  .EQ.  2)  GO  TO  30 
C 

C   THE  SOLUTION  HAS  NOW  BEEN  COMPLETED.    RETURN  NORMALLY  TO  MAIN. 
C  ***    HALLELULIAH  **^ 
IR  =  1 
GO  TO  40 
C 

C   A  FATAL  ERROR  HAS  OCCURED.    RETURN  ABNORMALLY  TO  MAIN. 

30  IR  =  2 

40  RETURN 
CJ(****f********************5«*^f****iHt***XK*********»**e*****)(  ************** 

C 

END 

SUBROUTINE  STG2D 
C 

C   THIS  PROGRAM  CONTROLS  THE  CALCULATION  OF  ALL  EVD  DOWNWASH 
C   INFLUENCE  COEFFICIENTS  AND  THE  FORMATION  OF  THE  LEFT  AND  RIGHT  SIDE 
C   MATRICES. 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT, JETFLG, IGTYPE,IHINGE 

connorj/MAPr./NRows ,fjRowsj  ,r,'WT  ,njt  ,nmax ,nw(  40  )  ,nji  40  )  ,iw(  40 )  ,IJ(  40 ) 

CO!i:iON/SPIRIT/    NEWriAX,NEWCMU,NOALFA,LOGIC,IR 

DIMENSION   W(6lO) 
C 

C   IF  THIS  IS  A  NEW  CMU  CASE,  AUGMENT  THE  EXISTING  DOWNWASH  MATRIX  ROWS 
C   ON  THE  JET 

ISIZE  =  NEWMAX 

IF(NEWCMU  .EQ.  1 )  GO  TO  10 

IF( NEWMAX  .GT.  NWT  )  CALL  SHUFL2( W, ISIZE , NEWMAX ) 

GO  TO  30 
C 

C   CALCULATE  THE  DOWNWASH  INFLUENCE  COEFFICIENTS  AT  ALL  CONTROL  POINTS 
C   DUE  TO  ALL  TRIArJGULAR,  LEADING  EDGE  AND  FAR-JET  EVD  ELEMENTS 
10  ISIZE  =  NMAX 

IF(lLOGIC  .EQ.  2)  .AND.  ( ISYMM  .GT.  0  )  )  GO  TO  30 

CALL  DHNWSHlW,ISIZE ) 
C 

C   AUGMENT  THE  MATRIX  ROWS  FOR  CONTROL  POINTS  ON  THE  JET. 
C   NOTE  THAT  THIS  MUST  BE  DONE  EVEN  THOUGH  CMU  MAY  BE  0.0, 
C   IN  ORDER  TO  PREPARE  FOR  FUTURE  NONZERO  CMU  CASES. 

20    IF(NMAX    .GT.    NWT)    CALL   SHUFLK W, ISIZE ) 
C 

C   DEVELOP  THE  RIGHT  SIDE  COLUMN  MATRIX 
30  ISIZE  =  NEWMAX 

DO  80  N  =  1,NCASES 

LCASE  =  N 
C 
C   DEFINE  THE  LCASE  COLUMN,  NOT  INCLUDING  THE  INFLUENCE  OF  ANY  HINGES 

40  CALL  COLUMK  LCASE ) 
C 
C   COMPUTE  THE  HINGE  DOWNWASH  INFLUENCE  FACTORS 

IF((  LCASE  .EQ.  1)  .OR.  ( IHINGE  .EQ.  O)  GO  TO  80 

DO  SO  I  =  1, NEWMAX 

W(I  )  =  0.00 
50  CONTINUE 

60  CALL  HINGE! W, ISIZE, NEWMAX, LCASE ) 
C 

C   MODIFY  THE  LCASE  COLUMN  TO  INCLUDE  THE  INFLUENCE  OF  ALL  HINGES 
70  CALL  C0LUM2( W, ISIZE, NEWMAX, LCASE ) 
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80  CONTINUE 
C 

C   THE  MATRIX  DEVELOPMENT  IS  NOW  COMPLETE. 
C   PUT  THE  MATRIX  SYSTEM  IN  THE  PROPER  FORM  FOR  SOLUTION. 
90  ISIZE  =  NEWMAX  +  fJCASES 
100  CALL  PREPIW, ISIZE, NEWMAX) 

RETURN 

ErJD 

SUBROUTINE  DWNWSH ( W , ISIZE ) 
C 

C   THIS  SUBROUTINE  CALCULATES  THE  DOWNWASH  INFLUENCE  COEFFICIENT  MATRIX. 
C   THE  MATRIX  IS  STORED  ON  THE  DIRECT  ACCESS  SCRATCH  FILE. 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COMMON/MARK/NROWS,NR0WSJ,NWT,NJT,NMAX,NW('^0),NJ(^0),IW(40),IJ(^0) 

COMMON/GEOMl/Yl  40  )  ,CHORD(  <i0  )  .DELTA!  "^0  )  ,XB(  600  )  ,XI(  600  )  ,DEL(  600  ) , 
1  D('+0),KK(600),ITYPE(600) 

DIMENSION  W( ISIZE ) 
C 
C 

C  COMPUTE  ALL  THE  DOWNWASH  COEFFICIENTS 
C 

IWRITE  =  0 

IFdPRINT  .LT.  0)  WRITE(6,  10  ) 
10  FORMAT (1H1,38X,'^4HWING  -  DUE  -  TO  -  WING  -  AND  -  JET  DOWNWASH/) 

C   CYCLE  THE  DOWNWASH  CONTROL  POINTS  ON  THE  WING  AND  JET 

DO  190  I  =  1,NMAX 

IWRITE  =  IWRITE  +  1 
C      FINDd' IWRITE  J  ***  COMMENTED  OUT  BY  JAC  ** 

KI  =  KK(I) 
C 
C  CYCLE  THE  VORTEX  POINTS  ON  THE  WING  AND  JET 

DO  150  J  =  1,NMAX 
C   COMPUTE  THE  GENERAL  G'  OMETRIC  PARAMETERS 
KJ  =  KK( J) 
20  X  =  XI(I)  +  DELd  l»tCHORD(KI)/2.00  -  XI(  J ) 
YY  =  Y(KI  1  -  Y(KJ) 
IT  =  ITYPE(J)/10 
C 

C   DECIDE  WHICH  EVD  TYPE  TO  USE.   ONLY  THE  TRIANGULAR  PART  OF  HINGES 
C   WILL  BE  CONSIDERED  AT  THIS  TIME. 

GO  TO  (  50  ,  30  ,  110  ,50  ) ,  IT 
30  WRITE(6,  "+0  )  J, IT 

40  FORMAT! IH  ,35X,nH**  WARNING  **  ELEMENT ,14 .19H  HAS  AN  ITYPE  VALUE, 
1      3H  OF,I5/29X,42HAN  EQUIVALENT  TRIANGULAR  DOWNWASH  WAS  USED) 
C 

C   REGULAR  TRIANGULAR  EVD   (INCLUDING  TRIANGULAR  PART  OF  HINGE  EVD) 
50  Dl  =  DELlJ-1)  *  CHORD! KJ) 
INI  =  IWIKJ  )  +  N'liKJ)  -  1 

IF(J  .EQ.  IJ(KJ))D1  =  DEL(INl)  *  CHORD(KJ) 
D2  =  DEL! J)  *  CHORDIKJ) 
60  W(J)  =  EVD1!X,YY,D1,D2,DELTA!KJ)) 
C   SUPERIMPOSE  THE  DOKNWASH  FROM  THE  LEFT  SIDE  OF  THE  WING  IF  THIS  IS  A 
C   SYMETRIC  OR  ANTI-SYMETRIC  CASE 
IFIISYMM  .GT.  0)  GO  TO  150 
YY  =  Y!KI  )  +  Y!KJ ) 
70  WDUMMY  =  EVD1IX.YY,D1,D2,DELTAIKJ)) 
IFIISYMM  .LT.  OJWDUMMY  =  -WDUMMY 
GO  TO  140 
C 
C   LEADING  EDGE  EVD 

80  D2  =  DEL! J)  *   CHORDIKJ) 
90  W(J)  =  EVD2!X,YY,D2,DELTA!KJ)) 
C   SUPERIMPOSE  DOWNWASH 

IFIISYMM  .GT.  0)  GO  TO  ISO 
YY  =  Y!KI  )  +  YIKJ I 
100  WDUMMY  =  EVD2IX,YY,D2, DELTA! KJ)) 
IF!ISYMM  .LT.  0)  WOUMMY  =  -WDUMMY 
GO  TO  140 
C 
C   FAR  -  JET  EVD 

110  Dl  =  DEL(J-l)  »  CHORD!KJ) 
120  W(J)  =  EVD3IX,YY,D1,D(KJ),DELTA!KJ)) 
C   SUPERIMPOSE  DOWNWASH 

IF!ISYMM  .GT.  0)  GO  TO  150 
YY  =  Y(KI  )  +  YIKJ) 
130  WDUMMY  =  EVD3! X,YY,D1,DIKJ), DELTA! KJ)) 

IFIISYMM  .LT.  0)  WDUMMY  =  -WDUMMY 
140  Wl J)  =  Wl J)  +  WDUMMY 
150  CONTINUE 
C 

C  STORE  THE  DOWNWASH  AT  CONTROL  POINT  I  ON  THE  DIRECT  ACCESS  UNIT 
C 

160  WRITE! 1 'IWRITE)  W 

IFIIPRINT  .GE.  0)  GO  TO  190 
IFII  .EQ.  NWT+1)  WRITEI6,  170  ) 
170  FORMAT! 1H1,38X,43HJET  -  DUE  -  TO  -  WING  -  AND  -  JET   DOWNWASH/) 

WRITE! 6,  180  )  I ,W 
180  FORMAT! 1H0,55X,10HMATRIX  ROW,I4,60! /1X,10E13 .5 ) ) 
190  CONTINUE 
RETURN 
C 

C  THE  DIRECT  ACCESS  UNIT  NOW  CONTAINS  THE  FOLLOWING  - 
C     WING-DUE -TO-WING-AND-JET  DOWhiWASH  COEFFICIENTS   ( NWT  RECORDS) 
C     JET  -DUE -TO-WING-AND-JET  DOWNWASH  COEFFICIENTS   I NJT  RECORDS) 
END 

FUNCTION  EVD1(X,Y,D1,D2, DELTA) 
C 
C  THIS  FUNCTION  CALCULATES  THE  DOWNWASH  AT  ANY  POINT  X,Y 
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C   DUE  TO  A  REGULAR  TRIANGULAR  EVD  ELEMENT  WITH  UNIT  PEAK  VORTICITY, 

C   LOCATED  AT  THE  ORIGIN  0,0 

C 

R(  A,BI  =  SC3RT(  A^'A  +  B*B  ) 

C   CALCULATE  THE  BASIC  GEOMETRICAL  PARAMETERS 

IFl Y  .LT.  0.0  1  Y  =  -Y 

YMD  =  Y  -  DELTA 

YPD  =  Y  +  DELTA 

PARTI  =  (Dl  +  D2)  *  (1.0/YMD  -  1.0/YPD) 

IF(X/(0.50?'(D1  +  D2))  .GT.  100.0)  GO  TO  90 
10  XPD  =  X  +  Dl 

XIID  =  X  -  D2 
20  ROP  =  R(X,YMD) 

RIP  =  R(XPD,YMD  ) 

R2P  =  R(XMD,YMD  ) 
30  ROPP  =  R(X,YPD  I 

RIPP  =  R(XPD,YPD) 

R2PP  =  R(XMD,YPD) 

C   CALCULATE  THE  DOWNWASH 

40  PART2  =  (XPD/Dl)  *  ( ( RIP-ROP  )/YMD  -  ( RIPP-ROPP  )/YPD  1 
PART3  =  (XM0/D2)  »  ( ( R2P-R0P  )/YMD  -  ( R2PP-R0PP  )/YPD  ) 
YRATIO  =  (YPD  +  ROPP)  /  ( YMD  +  ROP  ) 
50  PART<+  =  (XPD/Dl)  *  ALOG(  (  (  YMD  +  RIP  )/(  YPD  +  RIPP  )  )  *    YRATIO) 
PARTS  =  (XMD/D2)  *  ALOG(  ( ( YMD  +  R2P  l/( YPD  +  R2PP  )  )  *  YRATIO) 
60  PART6  =  YMD  *  ALOG(( XPD  +  RIP  l/( X  +  ROP  )  ) 

PART7    =    YPD    *    ALOGI IXPD+R1PP)/(X+R0PP)) 
70    PARTS    =    YMD    *    ALOGI  (  Xt1D  +  R2P  )/l  X  +  ROP  )  i 

PART9  =  YPD  *  ALOGI  (XMD  +  R2PP  )/(X  +  ROPP)) 
80  EVDl  =  -(PARTI  +  (PART2  +  PARTS)  -  2.0*(PART<+  ♦  PARTS) 

1     -KPARTb  -  PART7)/D1  +  (PARTS  -  PART9  )/D2  )  )  /  25.1327<+ 
RETURN 
90  EVDl  =  -PARTI  /  12.56673 
100  RETURN 
Er^D 

FUNCTION  EVD2(X,Y, DEL, DELTA) 
C 

C   THIS  FUNCTION  CALCULATES  THE  DOWNHASH  AT  ANY  POINT  X,Y 
C   DUE  TO  A  LEADING  EDGE  EVD  ELEMENT  KITH  UNIT  AVERAGE  VORTICITY, 
C   LOCATED  AT  THE  ORIGIN  0,0 
C 

DIMENSION  SI( 9),FACT0R( 9) 
C 

R( A.B)  =  SQRT( A*A  +  B»B ) 
G(A)  =  1.00/SQRT(A)  -  A 
S(  A)  =  ABSl  A)  /  A 
C 

DATA  SI/-0.96S1602,-0. 8360311, -0.613371<*, -0.3242534, 0.0, 
1  0.324253'i,  0.61S5714.  0.8360311,  0.9d81602/ 

DATA  FACTOR/0. 031 274H,0.1SOfa462,0.2bOD 107, 0.3123'+71, 0.3302394, 
1  0.3125471,0. 2o0bl0 7, 0.180o432, 0.0812744/ 

C   CALCULATE  THE  BASIC  GEOMETRICAL  PARAMETERS 
10  XB  =  X  /  DEL 
YB  =  Y  /  DEL 
DB  =  DELTA  /  DEL 
YPD  =  YB  +  DB 
YMD  =  YB  -  DB 
20  IF(XB  .GT.  100.0)  GO  TO  280 

XMl  =  XB  -  1.00 
30  ROP  =  R(XB,YMD  I 
40  ROPP  =  R(XB,YPD) 
C 
C   CALCULATE  RK(XB) 

IF(ABS(XB)  .LT.  l.OE-04)  GO  TO  100 
IF(AES(XM1)  .LT.  l.OE-06)  GO  TO  60 
50  PART  =  ALOGI ABS(XM1/XB  I  ) 
PARTI  =  XB  *  PART  +1.00 
IFIXB  .GT.  0.00  )  GO  TO  70 
60  SQX  =  SCRTI -XB  ) 

RK  =  -2.00  /  SQX  *  ATANI 1.00/SQX)  +  PARTI 
GO  TO  90 
70  SOX  =  SQRT(XB) 

RK  =  -ALOGI ABS( (1.00-SQX)  /( 1 . 00+SQX  )  )  )  /  SQX  ♦  PARTI 
GO  TO  90 
80  RK  =  2.386294 
C 
C   CALCULATE  PIXB) 

90  PART2  =  ROP/YMD  -  ROPP/YPD 
P  =  PART2  *   RK 
GO  TO  110 
100  P  =  0.00 
C 
C   CALCULATE  F(XB)  BY  GAUSSIAN  INTEGRATION. 

110  IFIIXB  .GT.  0.0)  .AND.  I XB  . LT .  1.00))  GO  TO  150 
C   XB  IS  NOT  WITHIN  THE  X  DIMENSIONS  OF  THE  ELEMENT. 
F  =  0.00 
DO  140  N  =  1.9 
120  SB  =  (SI(N)+1.00)  /  2.00 
XMS  =  XB  -  SB 
GS  =  G(SB) 
130  PART3  =  (GS»(R(XMS,YMD)-ROP)  )/YMD  -  ( GS»( R( XMS,YPD )-ROPP ) )/YPD 

F  =  F  +  FACTOR! N)  *  PART3  /  XMS 
140  CONTINUE 

F  =  0.50  *  F 
GO  TO  270 
C 

C  XB  IS  WITHIN  THE  X  DIMENSIONS  OF  THE  ELEMENT.    CALCULATE  FO. 
150  FO  =  0.00 
GPX  =0.00 
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GPPX  =0.00 

IF(XB  .LT.  l.OE-0^)  GO  TO  170 

GX  =  GIXBI 

GPX  =  GK  *  (ABS(YMD)  -  ROP ) 

GPPX  =  GX  *  (ASStYPD)  -  ROPP ) 

IF(Xt11  .GT.  -l.OE-06)  GO  TO  170 
160  FO  =  -(GPX/YMD  -  GPPX/YPD  )  *  PART 
C   CALCULATE  Fl  BY  GAUSSIAN  INTEGRATION. 
170  Fl  =  0.00 

00  250  N  =  1,9 
180  SB  =  (SI(N)+1.00)  /  2.00 

xr;s  =  XB  -  SB 

190  IF(ABS(XMS)  .LT.  l.OE-O"^)  GO  TO  220 

GS  =  G(SBI 
200  PART"*  =  (GSi^(R(XMS,YMD)-ROP)  -  GPX)  /  XMS 
210  PARTS  =  (GS»(R(XMS,YPD  )-ROPP )  -  GPPX)  /  XMS 
PART6  =  PART'+ZYMD  -  PARTS/YPD 
GO  TO  2'+0 
220  PART'4  =  S(YMD)  -  S(YPD)  -  PART2 

PARTS  =  1.00  +  0.50  /  (SQRT(XB))**3 
230  PARTfa  =  PART4  *  PARTS 
2^0  Fl  =  Fl  +  FACTOR(N)  *   PART6 
250  CONTINUE 
260  F  =  FO  +  0.50  *  Fl 
C 
C   CALCULATE  THE  DOWNWASH  INFLUENCE  COEFFICIENT. 

270  EVD2  =  -(1.50  *  (1 . OO/YMD  -  l.OO/YPD)  +  P  +  F)  /  18.8^956 

RETURN 
280  EVD2  =  -d.  OO/YMD  -  1.00/YPO)  /  6.283185 
RETURN 
END 

FUNCTION  EVD3(X,Y, DEL, D, DELTA) 
C 

C   THIS  FUNCTION  CALCULATES  THE  DOWNWASH  AT  ANY  POINT  X,Y  DUE  TO  A 
C   FAR-JET  EVD  ELEMENT  WITH  UNIT  PEAK  VORTICITY,  LOCATED  AT  THE  ORIGIN 
C 

R(A,B)  =  SQRT(A*A  +  B*B ) 
C 

C   CALCULATE  THE  BASIC  GEOMETRICAL  PARAMETERS 
IF( Y  .LT.  0.0  1  Y  =  -Y 
YMD  =  Y  -  DELTA 
YPD  =  Y  +  DELTA 
10  XPD  =  X  +  D 

20  PARTI  =  (DEL/2.00  +  D)  *  I  1. OO/YMD  -  l.OO/YPD) 
C   CHECK  ON  INFINITY 

IF( (XPD/YMD  1^*2  .GT.  1.0E06)  GO  TO  160 
XPDl  =  X  +  DEL 
XD  =  X/DEL 
ROP  =  RlX,YMD1 
ROPP  =  R(X,YPD) 
30  RIP  =  R( XPDl, YMD) 
RIPP  =  R(XPDI,YPD) 
ROP  =  R( XPD, YMD) 
RDPP  =  R( XPD, YPD) 

C   CALCULATE  FO 

^0  PART2  =  ROP/YMD  -  ROPP/YPD 

PARTS  =  0.50  *  (XD  +  l.OO)  ^    ( ( RIP-ROP )/YMD  -  ( RIPP-ROPP  )/YPD  ) 
50  PART"^  =  ALOGf  ABS(  (  (YMD  +  R1P)/(YPD+R1PP  I  )  *  (  (  YPD+ROPP  )/(  YMD+ROP  )  )  )  ) 

PARTS  =  YMO/DEL  *   ALOG( ( XPDI  +  RIP  )/( X  +  ROP  ) ) 
60  PART6  =  YPD/DEL  ^  AL05( ( XPDI+RIPP )/( X+ROPP ) ) 
70  FO  =  PARTI  -  0.50*PART2  +  PARTS  -  ( XD  +  1 . 00  )*PART4 
1       -  0.50*(PART5-PART6 ) 
C 
C   CALCULATE  Fl 

IF( ABS(XPD/D)  .LT.  l.OE-02)  GO  TO  130 
C   X  IS  NOT  NEAR  -D 
Q  =  D/XPD 
80  PARTI  =  -D  *  Q  *  (1. OO/YMD  -  l.OO/YPD) 

PART2  =  Q  *  PART2 
90  PART3  =  Q  *  Q  *  ALOG( ABS( ( YMD  +  ROP  )/( YPD+ROPP )) ) 
100  PART^  =  YMD/RDP*ALOG( ABS( ( -XPD+RDP*( (ROP+RDP)/D))/rRDP-XPD))) 
110  PARTS  =  YPD/RDPP*ALOGi ABS( (-XPD  +  RDPP*! (ROPP+RDPP)/D)  )/(RDPP-XPD))) 
120  Fl  =  PARTI  +  PART2  -  PARTS  +  Q  *  Q  ^  ( PART4  -  PART5 ) 
GO  TO  150 
C   X  IS  NEAR  -D 
130  X  =  -D 

ROP  =  R(X,YMD) 
ROPP  =  R(X,YPD) 
PART2  =  ROP/YMD  -  ROPP/YPD 

PART3  =  (X/YMDI**2  *  ALOG( ABS( ( YMD+ROP  )/X  ) ) 
PART4  =  (X/YPD)**2  i;  ALOG(ABS(  (YPD  +  ROPP  )/X)) 
1*^0  Fl  =  -0.50*PART2  -  O.SO*(PART3  -  PART^ ) 
C   CALCULATE  THE  DOWNWASH  INFLUENCE  COEFFICIENT 
C 

150  EVD3  =  -(FO  +  Fl)  /  12.56637 

RETURN 
160  EVD3  =  -PARTI  /  6.283185 
RETURN 
END 

FUNCTION  EVD4(X,Y,D1,D2, DELTA) 
C 

C  THIS  FUNCTION  CALCULATES  THE  DOWNWASH  AT  ANY  POINT  X,Y 
C   DUE  TO  A  HINGE  EVD  ELEMENT  WITH  ONE  RADIAN  TURNING  ANGLE 
C   LOCATED  AT  THE  ORIGIN  0,0 


C 


DIMENSION  SI(9),FACT0R( 9) 

R(A,B)  =  SQRT(AXA  +  B^^B ) 

CHANGE( A,B,C  )  =  0.50  *  (C  *  (B-A)  +  (A+B)) 

S(A)  =  ABS(A)  /  A 

SO(T)  =  0.50  *  ( -D1L/D1*( l.OO-S(T)  )  +  D2L/D2*( 1 .00+S( T ) ) ) 
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G(A1  =  ALOG(ABSrA)l  -  SO(A)  *  A 

DATA  SI/-0.9o81602, -0.8560311, -0.615371^, -0.32^253^, 0.0, 
1  0.32<+25i'+,  0.613371"+,  0.8360311,  0.9681602/ 

DATA  FACTOR/0.  08127<+4,0.180o'^82, 0.2606107,0.  2123^71, 0.330239'i, 
1  0.  31 23'+71, 0.260610  7, 0.1806'+82, 0.08127'+'+/ 


c 
c 

CALCULATE  THE  BASIC  GEOMETRICAL  PARAME 

DB  =  0.50  *  (Dl  +  02) 

10 

XB  =  X  /  DB 
XMD  =  X  -  D2 
XPD  =  X  +  Dl 

20 

YMD  =  Y  -  DELTA 
YPD  =  Y  +  DELTA 

30 

ROP  =  R(X,YMD  ) 
ROPP  =  R(X,YPD) 
AX  =  ABSIX) 
AXB  =  ABS(XB) 
DIL  =  ALOG( 01) 
D2L  =  AL03(D2) 
XDl  =  X/Dl 
XD2  =  X/D2 

<tO 

PARTS  =  1.00/YMD  -  1.00/YPO 

c 

c 

PART6  =  -(D1+D2)  +  0.50  *  (D1*D1L  + 

CALCULATE  RK(X) 

IFIAXB  .LT.  7.5)  GO  TO  70 

N  =  0 

RK  =  0.00 

DIX  =  Dl/X 

D2X  =  D2/X 

DO  60  Nl  =  1,100,2 

RKN  =  0.000 

DO  50  N2  =  1,2 

N  =  N  +  1 

D2*D2L) 


(XDl+1.00)  *  DID  *  ALOG(ABS(XPD/X)) 


RN  =  N 

Rr.'N  =  N  *  (N+1) 

RKN  =  RKN  +  (-1.0)**(N+1)  *  ( DIL/RNN  -  1.0/(RN*RN))  *  01X**N 
1      +(D2L/RNN  -  1.0/(RN*RN))  *  D2X**N 
50  CONTINUE 

RK  =  RK  +  RKN 

IF( ABSl RKN/RK)  . LT .  l.OE-07)  GO  TO  190 
60  CONTirjUE 
70  IF(AXB  .LT.  LOE-O^)  GO  TO  200 

SX  =  SIX) 

RKl  =0.00 

RK2  =  0.00 

RK3  =0.00 

RK4  =  0.00 

RKIP  =  AESIXDl+1.00) 
80  IFIRKIP  .LT.  l.OE-06)  GO  TO  90 

RKl  =  I ALOGI ABSIXDl) ) 
90  RK2P  =  ABSIXD2-1.00) 

IFIRK2P  .LT.  l.OE-06)  GO  TO  100 

RK2  =  -I AL0G(ABS(XD2))  -  IXD2-1.00)  *  D2L1  *  ALOG( ABS( XMD/X ) ) 
100  IF(  ABS(D1/AX-1.00  I  .  LT  .  1.0E-0<+)  GO  TO  1^0 
CALCULATE  RK3  BY  GAUSSIAN  INTEGRATION. 

AL  =  1.00 

BL  =  Dl/AX 

DO  130  N  =  1.9 
110  T  =  CHANGE(AL,BL,SI(N)) 

120  RK3  =  RK3  +  FACTOR! N  )  *  (ALOG(T)  /  ( SX+T  )  ) 
130  CONTINUE 

RK3  =  0.50  *  (BL-AL)  *  RK3 
CALCULATE  RK<+  BY  GAUSSIAN  INTEGRATION. 
l-^O  IF(  ABSID2/AX-1.00)  .  LT .  LOE-O"^)  GO  TO  180 

AL  =  1.00 

BL  =  D2/AX 

DO  170  N  =  1,9 
150  T  =  CHANGEI AL,BL,SIIN)) 

IbO  RK^  =  RK^  +  FACTOR! N)  *  ( ALOGI T)  /  ( SX-T )  ) 
170  CONTINUE 

RK**  =  0.50  *    I  BL-AL)  *  RK<+ 
180  RK  =  -2.'+67'+01  *  SX  -  ID1L-D2L)  +  (RKl  +  RK2)  4  ( RK3  +  RM) 
190  P  =  (ROP/YMD  -  ROPP/YPD)  *  RK 

GO  TO  210 
200  P  =  0.00 

CALCULATE  FIX)  BY  GAUSSIAN  INTEGRATION. 


210  IFIIX  .GT.  -Dl)  .AND.  IX  . LT .  D2  )  )  GO  TO  290 
X  IS  NOT  WITHIN  THE  DIMENSIONS  OF  THE  ELEMENT. 
LEFT  SIDE  INTEGRAL. 

FL  =  0.00 

AL  =  -Dl 

BL  =  0.00 

DO  2^0  N  =  1,9 
220  SY  =  CHANGEI AL,BL,SI(N)) 

XMS  =  X  -  SY 

GS  =  GISY) 
230  PARTI  =  GS  *  ( Rl XMS,YMD  )-ROP  )  /  YMD  -  GS  *  ( R( XMS,YPD  )-R0PP  )  /  YPD 

FL  =  FL  +  FACTOR! N)  *  PARTI  /  XMS 
2^+0  CONTir-aJE 

FL  =  0.50  *  (BL-AL)  *  FL 
RIGHT  SIDE  INTEGRAL 

FR  =  0.00 

AL  =  0.00 

BL  =  D2 

00  270  N  =  1,9 
250  SY  =  CHANGEI AL,BL,SI(N)) 

XMS  =  X  -  SY 

GS  =  GISY) 
260  PARTI  =  GS  *  ( R( XMS,YMD )-R0P J  /  YMD 


GS  *  (R(XMS,YPD)-ROPP)  /  YPD 
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FR  =  FR  +  FACTOR!  N)  *  PARTI  /  XMS 
270  CONTIN'JE 

FR  =  0.50  *  (BL-AL)  *  FR 
280  F  =  FL  +  FR 
GO  TO  "+60 
C 

C   X  IS  WITHIN  THE  DIMENSIONS  OF  THE  ELEMENT 
C   CALCULATE  FO 
290  FO  =  0.00 
GPX  =0.00 
GPPX  =0.00 

IF(AXB  .LT.  l.OE-04)  GO  TO  310 
SOX  =  SOIX)  -  1.00/X 
GX  =  GIX) 

GPX  =  GX  *  (ABS(YMD)-ROPl 
GPPX  =  GX  *  ( ABS( YPD)-R0PP) 

IFC  (  (1.00-XD2 )  .LT.  l.OE-06)  .OR.  ((XDl  +  1.00)  . LT .  l.OE-06)) 
1       GO  TO  310 
300  FO  =  -(GPX/YMD  -  GPPX/YPD  )  *  ALOGI ABSI XMD/XPD  ) ) 
C 

C   CALCULATE  Fl 
C   LEFT  SIDE  INTEGRAL 
310  FL  =  0.00 
AL  =  -Dl 
BL  =  0.00 
DO  370  N  =  1,9 
320  SY  =  CHANGE! AL,BL,SI(N)) 
XMS  =  X  -  SY 

IFIABSIXMS/DB)  . LT .  l.OE-0^)  GO  TO  350 
GS  =  G(SY  ) 
330  PART2  =  (GS  *  ( R( XMS,YMD )-ROP  )  -  GPX 1  /  XMS 
340  PART3  =  (GS  *  ( R( XMS ,YPD  l-ROPP )  -  GPPX)  /  XMS 
PART4  =  PART2/YMD  -  PART3/YPD 
GO  TO  360 
350  PART2  =  ROP/YMD  -  ROPP/YPD 

PART-*  =  (S(YMDI  -  S(YPD)  -  PART2)  *  SOX 
360  FL  =  FL  +  FACTOR(N)  *  PART4 
370  CONTINUE 

FL  =  0.50  *  (BL-AL)  »  FL 
C 

C  RIGHT  SIDE  INTEGRAL 
380  FR  =  0.00 
AL  =  0.00 
BL  =  D2 

DO  <+<+0  N  =  1,9 
390  SY  =  CHANGE( AL,BL,SI(N)) 
XMS  =  X  -  SY 

IF(ABS(XMS/DB)  .LT.  l.OE-04)  GO  TO  420 
GS  =  G(SY  I 
400  PART2  =  (GS  *  ( R( XMS ,YMD  )-R0P  )  -  GPX  I  /  XMS 
410  PARTS  =  (GS  *  (R(XtlS,YPD)-ROPP)  -  GPPX)  /  XMS 
PART4  =  PART2/YMD  -  PART3/YPD 
GO  TO  430 
420  PART2  =  ROP/YMD  -  ROPP/YPD 

PART4  =  (S(Yr;Ol  -  S(YPD)  -  PART2  )  *  SOX 
430  FR  =  FR  +  FACTOR(N)  *  PART4 
440  CONTIfJUE 

FR  =  0.50  *  (BL-AL)  *  FR 
450  F  =  FL  +  FR  +  FO 
C 

C   CALCULATE  THE  DOWNWASH  INFLUENCE  COEFFICIENT 
460  EVD4  =  (PARTS  *  PARTb  +  P  +  F)  /  19.739202 
RETURN 
END 

SUBROUTINE  SHUFLK W,ISIZE ) 
C 

C   THIS  SUBROUTItJE  READS  THE  PORTION  OF  THE  DOWNWASH  MATRIX  WHICH 
C   CONTAINS  THE  DGSIN'NASH  DUE  TO  THE  JET,  AUGMENTS  IT  ACCORDING  TO 
C   THE  CURREtJT  CIIU  VALUES,  AND  WRITES  IT  BACK  ON  UNIT  1 
C  BEHIND  THE  DOWNWASH  MATRIX 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
C0ritl0rJ/MARK/NR0KS,rJR01!SJ,r;WT  ,NJT  ,N!1AX,NW1  40  )  ,NJ(  40  )  ,IW(  40  )  ,IJ(  40  ) 
C0MM0N/GE0M1/Y( 40 ) ,CHOR0( 40  I  ,DELTA( 40 ) ,XB(  600 ) ,XI(  600 ) ,DEL( bOO ) , 
1  D(40),KK(600 ),ITYPE(600 ) 

COMMON/JCASE/CMU( 40 ) ,CMUP(  40  I ,CMUPP(  40 ) 
DIMENSION  A( 600 ) ,AIM1( 600  )  ,W( ISI2E  ) 
C 

NWTl  =  NWT  +  1 
FIND( I'NWTl) 

IFdPRINT  .LT.  0)  WRITE(6,  10  ) 
10  FORMAT! 1H1,42X,36HAUGMENTED  PORTION  OF  SOLUTION  MATRIX/) 
C 

C   PREPARE  THE  SOLUTION  MATRIX  FOR  ROWS  ON  THE  JET 
C 

C       I  IS  THE  CO(JNTER  FOR  IDENTIFYING  ELEMENTS  ON  THE  JET 
C    IREAD  IS  THE  COUNTER  FOR  DOWNWASH  ROWS  ON  THE  JET  STORED  ON  UNIT  1 
C   IWRITE  IS  THE  COUNTER  FOR  AUGMENTED  ROWS  TO  BE  WRITTEN  ON  UNIT  1 
20  IREAD  =  NWT 
IWRITE  =  NMAX 
CI  =  0.125000 
C3  =  0.375000 
DO  150  I  =  NWTl, NMAX 
30  IMl  =  I  -  1 
IPl  =  I  +  1 
IREAD  =  IREAD  ♦  1 
IWRITE  =  IWRITE  +  1 
K  =  KK(I) 
C 
C  READ  THE  ITH  ROW  OF  THE  DOWNWASH  MATRIX   (IREADTH  RECORD) 
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^0  READd  TREAD)  H 
C   FIND  THE  PLACE  TO  WRITE  THE  ITH  AUGMENTED  ROW  (IWRITETH  RECORD) 
C      FIND(ITWRITE)  **^COMMENTED  OUT  BY  JAC  *** 


SAVE  THE  EXISTING  ROW  OF  SIMPLE  DOWNWASH  COEFFICIENTS 

DO  50  J  =  1,NMAX 

A(  J  1  =  W(  J) 
50  CONTINUE 

SUBTRACT  THE  PREVIOUS  ROW  FROM  THE  PRESENT  ROW  IF  THE  DOWNWASH  POINT 

IS  NOT  ON  A  LEADING  JET  ELEMEfJT 

PRODI  =  CMUPIKt  *  DELI  I)  *  CHORDIK) 

PR0D2  =  CMUP(K)  *  DELdMlJ  *   CHORD(K) 
60  IF(I  .EQ.  IJ(K))  GO  TO  90 

DO  70  J  =  1,NMAX 

Wl  J)  =  W(  J)  -  AIMK  J) 
70  CONTINUE 


MODIFY  THE  TWO  OR 

IF(I    .EQ.    (IJl 
DOWr.'WASH   CONTROL 
80   W(IMl)    =   W(IM1 

W(I  )    =   W(I)    + 

Wl IPlI    =    WIIPl 

GO  TO  110 
DOWNWASH  CONTROL 
90  WII  I  =  WII )  + 

WIIPl)  =  WIIPl 

GO  TO  110 

DOWNWASH  CONTROL 

100  WIIMl  )  =  WIIMl 

WII  )  =  WII  )  + 


THREE  SPECIAL  ELEMENTS  FURTHER 
K)+NJIK  )-l)  )  GO  TO  100 
POINT  IS  ON  A  REGULAR  JET  ELEMENT 
)  +  CI  *  PR0D2 
C3  *  I  PRODI  +  PR0D2) 
\    *   CI    *   PRODI 

POINT  IS  ON  A  LEADING  JET  ELEMENT 
C3  *   PRODI 
)  +  CI  *:  PRODI 

POINT  IS  ON  A  TRAILING  JET  ELEMENT 
I  +  CI  *  PR0D2 
C3  *  PR0D2  +  CMUPIK)  *  D(K) 


STORE  THE  AUGMENTED  ITH  ROW  ON  UNIT  1   (IWRITETH  RECORD) 
110  WRITE!  ITHRITE  )  W 
FIND  THE  PLACE  TO  READ  THE  NEXT  D0W4WASH  ROW  ( IREAD+IST  RECORD) 

FIND!  lTREAD  +  1  ) 
PRINT  THE  AUGMENTED  PORTION  OF  THE  MATRIX 
IFIIPRINT  .LT.  0)  WRITEIb,  120  )  I,W 
120  FORMATl 1H0,55X,10HMATRIX  ftOW,I^,60( /1X,10E13 .5 ) ) 

SAVE  THE  ITH  ROW  FOR  USE  AS  THE  I-l  ROW  ON  THE  NEXT  PASS 
130  DO  1^0  J  =  l,rJMAX 

AIMK  J  I  =  Al  JJ 
l-^O  CONTIfJUE 
150  CONTINUE 

RETURN 

DIRECT  ACCESS  UNIT  1  NOW  CONTAINS  THE  FOLLOWING  - 

Wir.G-DU5-T0-WING-AND-JET  DOWNWASH  COEFFICIENTS  ( NWT  RECORDS) 
JET-DUE-TO-WING-AND-JET  DOWNWASH  COEFFICIENTS  I NJT  RECORDS) 
JET-DUE -TO-WING-AND-JET  AUGMENTED  DOWNWASH  COEFFICIENTS  (NJT  REGS) 
END 
SUBROUTINE  SHUFL2( W,ISIZE ,NEWMAX ) 

THIS  SUBROUTINE  READS  EACH  MATRIX  ROW  CORRESPONDING  TO  A  DOWNWASH 
COrJTROL  POINT  ON  THE  JET,  MODIFIES  IT  ACCORDING  TO  THE  NEW  VALUES 
OF  CMU,  AND  RESTORES  IT  IN  ITS  ORIGINAL  PLACE 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
CO:'.MOrj/MARK/NRCWS  ,NROWSJ  ,\i'Al  ,NJT  ,NMAX  ,NWl  -+0  )  ,NJI  40  )  ,IWI  <+0  )  ,IJI  <+0  ) 
COMMON/GEOMl/YI 40  )  ,CHORDl 40  I  ,DELTAI 40 ) ,XB(  600 ) ,XI I  600 ) ,DEL(  600 ) , 
1  DI40  ),KK(b00  l,ITYPEI600) 

COMMON/JCASE/CMUI 40 ) ,CMUPl  40 ) ,CMUPPI  40 ) 
DIMEfJSION  WIISIZE  ) 

IFIIPRINT  .LT.  0)  WRITEI6,  10  ) 
10  FORMATl 1H1,42X,36HAUGMENTED  PORTION  OF  SOLUTION  MATRIX) 

CYCLE  THE  AUGMENTED  MATRIX  ROWS 

IREAD  =  NMAX 

NWTl  =  NWT  +  1 

DO  100  I  =  NWT1,NEWMAX 

IREAD  =  IREAD  +  1 

FIND!  1  TREAD) 
20  IMl  =1-1 

IPl  =  I  +  1 

K  =  KK ( I ) 
30  CMUDIF  =  (CMUPIK)  -  CMUPP(K))  »  CHORD(K) 

READ  THE  ITH  AUGMENTED  MATRIX  ROW 
40  READ!  1  TREAD)  W 
FINDIITREAD) 

MODIFY  THE  TWO  OR  THREE  SPECIAL  ELEMENTS  ACCORDING  TO  THE  NEW  CMU 

IFII  .EQ.  IJIK))  GO  TO  60 

IFII  .EQ.  (IJIK  )+NJIK)-l) )  GO  TO  70 
DOWNWASH  CONTROL  POINT  IS  ON  A  REGULAR  JET  ELEMENT 
50  WIIMl)  =  WIIMl  )  +  0.1250  *  DELIIMl)  »  CMUDIF 

WII)    =   WII)    +    0.3750   *    (DEL(IM1)+DEL(I))   »  C^BJDIF 

WIIPl)    =   WIIPl)    +    0.1250   *   DELII)    *   CMUDIF 

GO  TO  80 
DOWNWASH  CONTROL  POINT  IS  ON  A  LEADING  JET  ELEMENT 
60  WII)  =  WII)  +  0.3750  *  DELII)  *  CMUDIF 

WIIPl)  =  WIIPl)  +  0.1250  *  DELII)  *   CMUDIF 

GO  TO  80 
DOWhJWASH  CONTROL  POINT  IS  ON  A  TRAILING  JET  ELEMENT 
70  W(IMl)  =  WIIMl)  +  0.1250  *  DELIIMl)  *  CMUDIF 
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W(I  )  =  Wdl  +  (0.3750*DEL(IM1)  +  D(  K  )/CHORD(  K  ) )  *  CMUDIF 
C 

C   WRITE  THE  REVISED  ITH  '^OW  ON  UNIT  1 
80  WRITE( I'IREAO  )  W 

IFCIPRINT  .LT.  0)  WRITE(6,  ^0     )    I.W 
90  FORMAT (1H0,5SX,10HMATRIX  R0N,I4,60l /1X,10E13 .5  )  ) 
100  CONTINUE 

RETURN 

END 

SUBROUTINE  COLUMK LCASE  ) 
C 

C   THIS  SUBROUTINE  SETS  UP  THE  RIGHT  SIDE  COLUMN  MATRIX  WITHOUT 
C   CONSIDERATION  OF  ANY  HINGE  DOWNWASH  INFLUENCE 
C 

COMMON/MARK/NROWS,NROHSJ,NWT,NJT,NMAX,NW(^0),NJ(40).IW(^0),IJ(^0) 

COmON/GEOMl/Y(  ^0  )  ,CHORD( -+0  ), DELTA!  "^O  )  ,XB(  600  )  ,XI(  600  ), DELI  600  ) , 
1  D(<+0),KK(600),lfYPE(600  I 

C0MM0N/FCASE3/EPS( fcOO ,10  )  ,BETAl 600 ,10  )  ,THETA( 40 ,10  )  ,THS( 40  ,10  ) 

C0MM0N/S0LV1/B( 600 , 10  ) 
C 
C   DEFINE  THE  ELEMENTS  ON  THE  WING 

DO  10  I  =  1,NWT 

B( I, LCASE)  =  EPS(I,LCASE)  /  57.295779 
10  CONTINUE 
C 
C  DEFINE  THE  ELEMENTS  ON  THE  JET 

I  =  NNT 

DO  <+0  K  =  1,NR0WS 

NJK  =  NJ(K) 

IF(NJK  .EQ.  0)  GO  TO  40 
C   FIRST  JET  ELEMENT 

1=1  +  1 

KKI  =  KK(I) 
20  B(I, LCASE)  =  THETAJ KKI, LCASE)  /  57.295779 
C   REMAINING  JET  ELEMENTS 

DO  30  L  =  2, NJK 

1=1  +  1 

B( I, LCASE  )    =    0.00 
30   CONTI^^JE 
40   COrJTINUE 

RETURN 

EfJD 

SUBROUTINE  C0LUM2( H ,ISIZE ,NEWMAX, LCASE ) 

C   THIS  SUBROUTINE  ADDS  THE  APPROPRIATE  HINGE  DOWNWASH  INFLUENCE 

C   TO  THE  RIGHT  SIDE  COLUMN  MATRIX 

C 

COMMQN/MARK/NRONS,NROWSJ,NWT,NJT,NMAX,NW(40),NJ(40).IW(40 1,IJ(40) 

C0MM0N/GE0M1/Y( 40  )  ,CH0RD1 40  ), DELTA! 40 ) ,XB( 600  )  ,XI( 600  )  ,DEL( 600 ) , 
1  D(40  l,KK(600),ITYPE(600 ) 

C0MM0N/FCASE3/EPS( 600,10 ) ,BETA{ 600 ,10 ) ,THETA(  40 ,10 ) ,THS(  40 ,10 ) 

COMMON/ JCASE/Ct'.Ul  40  )  ,CMUP(40  )  ,CMUPPl  40  ) 

CCt1H0N/SOLVl/B(  600  ,10  ) 

DIMENSION  HIISIZE) 
C 
C   DEFINE  THE  ELEMENTS  ON  THE  WING 

DO  10  I  =  l.NEHMAX 

B(  I, LCASE)  =  B( I, LCASE)  -  H(I) 
10  CONTINUE 
C 
C   DEFINE  THE  ELEMENTS  ON  THE  JET 

IF(NEHMAX  .EQ.  NWT )  RETURN 

I  =  NWT 

DO  90   K  =  1,NR0WS 
20  NJK  =  NJ(K  ! 

IF(NJK  .EQ.  0)  GO  TO  90 
C   COMPUTE  THE  CMU  INFLUENCE  FACTORS  HI  AND  H2 

1=1  +  1 

HI  =  0.00 

H2  =  0.00 

BTA  =  BETAd, LCASE  ) 

IF(ABS(BTA)  .LT.  0.0001)  GO  TO  50 

BTA  =  BTA  /  57.295779 
30  D2  =  DELd  )  *  CHORD(K) 

DL  =  AL0G(D2 ) 

PROD  =  -CMUP(K)  *  D2  *  BTA  /  3.1415927 
40  HI  =  PROD  *  t 1.6931472  -  0.750  *  DL  ) 

H2  =  PROD  *  (0.3068528  -  0.250  *  DL  ) 
C   FIRST  POINT  ON  THE  JET 

50  B( I, LCASE)  =  B( I, LCASE)  +  HI 
C   SECOND  POINT  ON  THE  JET 

1=1  +  1 
60  B( I, LCASE)  =  B( I, LCASE)  +  H(I-l)  ♦  H2 
C   REMAINING  POINTS  ON  THE  JET 

IFINJK  .LT.  3)  GO  TO  90 

DO  80  L  =  3, NJK 

1  =  1  +  1 
70  B(I, LCASE)  =  B( I, LCASE)  +  Hll-l) 
80  CONTINUE 
90  CONTINUE 

RETURN 

END 

SUBROUTINE  HINGE ( H,ISIZE ,NEWMAX, LCASE  ) 
C 

C  THIS  SUBROUTINE  CALCULATES  THE  DOWNWASH  INFLUENCE  COEFFICIENTS 
C   AT  EACH  DOWrJWASH  CONTROL  POINT  DUE  TO  ALL  DEFLECTED  HINGE  ELEMENTS. 
C   FOR  EACH  CONTROL  POINT  THE  INFLUENCE  COEFFICIENTS  ARE  MULTIPLIED  BY 
C   THEIR  RESPECTIVE  DEFLECTION  ANGLE  AND  SUMMED  UP  TO  OBTAIN  THE 
C   COMPLETE  HINGE -INDUCED  DOWNWASH. 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
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COMMON/MARK/NROWS.NROWSJ  ,U\iT  ,NJT  ,NMAX  ,NW(  ^0  )  ,NJ<  <40  )  ,IW(  40  )  ,IJ(  ^0  ) 

COriMON/GEOMl/YC+O  )  ,CHORD(  40  I  .DELTA!  40  )  ,XB(  faOO  )  ,XH  bOO  ),  DEL  I  600  ) , 
1  DI40  I.KKlbOO  I.ITYPE1600 ) 

C0nM0tJ/FCASE3/EPS(  600  ,10  )  ,BETA(  600  ,  10  )  ,THETA(  40  ,10  )  ,THS(  "iO  ,10  ) 

DIMENSION   HIISIZE ) 
C 

IF( LCASE    .GT.    2)    GO  TO    20 

IFdPRlrJT    -LT.    0)    WRITElb,    10     ) 
10    FORMAT! IHl ) 

ILINES    =    1 
C 

C   CYCLE  THE  DOWNWASH  CONTROL  POINTS  ON  THE  WING  AND  JET 
20  DO  110  I  =  1,NEWMAX 

KI  =  KK(I) 
C 
C   CYCLE  THE  VORTEX  POINTS  ON  THE  WING  AND  JET 

DO  100  J  =  l,NEWi1AX 
C   CHECK  WHETHER  THERE  IS  A  DEFLECTED  HINGE  AT  ELEMENT  J 
30  B  =  BETAl J,LCASE ) 

IF(ABS(B)  .LT.  0.0001)  GO  TO  100 

C   COMPUTE  THE  GEOMETRIC  PARAMETERS 
KJ  =  KK( J) 
40  X  =  XKI)  +  DELd  l»CHORD(KI  )/2.00  -  XI(J) 

YY  =  Y(KI  )  -  Y(KJ) 
50  D2  =  DEL(J)  *  CHORD(KJ) 
Dl  =  DEL(J-l)  *  CHORDIKJ) 
INI  =  IW(KJ  )  +  NWIKJ  ;  -  1 
60  IF(ITYPE(JI  .EQ.  45  )  Dl  =  DELdNl)  »  CHORD(KJ) 
C   COMPUTE  AND  SUM  UP  THE  INFLUEtCE  OF  ELEMENT  J 

70  H(II  =  H(I)  +  EVD4(X,YY,D1,D2,DELTA(KJI  )  *  B 
C   SUPERIMPOSE  DOWNWASH  FOR  SYMEiRiC  OR  ANTI-SYMETRIC  GEOMETRY 
IFdSYMM  .GT.  0  )  GO  TO  100 
YY  =  YIKI  )  +  YIKJ) 
80  HDUMMY  =  EVD4( X ,YY ,01 ,D2 ,DELTA1 KJ ) ) 

IFdSYMM  .LT.  0)  HOUtlMY  =  -  HDUMMY 
90  Hd  I  =  Hd  )  +  HDUMMY  *  B 
100  CONTINUE 
110  CONTINUE 
C 

C   PRINT  OUT  THE  DOWNWASH  IF  REQUIRED 
IFdPRINT  .GE.  0  )  RETURN 
NEXT  =  NEKMAX/10  +  3 

IF( ( (ILINES+NEXT)  . LT .  56)  .OR.  (ILINES  .EQ.  1))  GO  TO  120 
WRITElb,  10  ) 
ILINES  =  1 
120  IFdPRINT  .LT.  01  WRITE(6,  130  )  LCASE, H 

130  FORMATC 1H0,35X,44HHINGE  INFLUENCE  COEFFICIENTS  FOR  FUNDAMENTAL, 
1        5H  CASE,  I3,60(/1X,10E13.5) ) 
ILINES  =  ILINES  +  NEXT 
RETURN 
ErJD 

SUBROUTINE  STG2S 
C 

C   THIS  PROGRAM  CONTROLS  SOLUTION  OF  THE  MATRIX  SYSTEM 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMOfJ/SPIRIT/  NEWMAX,NEWCMU,NOALFA, LOGIC, IR 
com;  1UN/S0LV1/GAMMA(  600,10  I 
C0ri!10N/S0LV2/WKAREA(  lOOOO  ) 
DIMENSION  W( 600 ) ,SUMMERI  oOO ) 
C 

IFdPRINT  .LT.  0)  WRITE(6,  10  ) 
10  FORMAT! 1H1,53X,14HGAMMA  SOLUTION) 
C 

C   SOLVE  THE  MATRIX  FOR  GAMMA  USING  MATRIX 
NSIZE  =  10000 
NIN  =  2 
NSCRl  =  3 
NSCR2  =  4 
20  CALL  MATRIX(NEWMAX,NCASES, NSIZE, NIN, NSCRl, NSCR2,IR) 
IFdR  .EQ.  2  )  GO  TO  90 
C   MATRIX  HAS  STORED  THE  SOLUTION  IN  THE  FIRST  STORAGE  LOCATIONS  OF  THE 
C   WKAREA  ARRAY.   TRANSFER  THIS  DATA  INTO  THE  GAMMA  ARRAY. 
ISUM  =  0 
30  DO  70  N  =  1,NCASES 
DO  40  J  =  1,NEWMAX 
GAMMA!  J, N)  =  WKAREAdSUM+J  ) 
40  CONTINUE 

IFdPRINT  .LT.  0)  WRITE!  6,  50  )  N  ,(  GAMMA!  J.N  ),J  =  1,NEWMAX  ) 
50  FORMAT!  IHO, SOX, 16HFUNDAMENTAL  CASE ,14,60! /1X,10E13 .5  )  ) 
60  ISUM  =  ISUM  ♦  NEWMAX 
70  CONTINUE 
C 

C   IF  REQUIRED,  CHECK  THE  SOLLTTION  BY  BACK  SUBSTITUTION 
80  IF!IPRINT  .LT.  0)  CALL  BAKSUB! W, SUMMER, NEWMAX  ) 
IR  =  1 
GO  TO  110 
C 

C   PRINT  THE  MATRIX  ERROR  MESSAGE 
90  WRITE! 6,  100  ) 
100  FORMAT! 1H1,40X,40HMATRIX  DOES  NOT  HAVE  ENOUGH  CORE  TO  WORK/ 
1       45X,29HTHIS  CASE  HAS  BEEN  TERMINATED) 
IR  =  2 
110  RETURN 
END 

SUBROUTINE  PREP!  TRANS, ISIZE , NEWMAX ) 
C 

C   THIS  SUBROUTINE  PREPARES  THE  FINAL  MATRIX  FOR  SOLUTION  BY 
C   CONCATINATING  IT  WITH  THE  RIGHT  SIDE  MATRIX  AND  STORING  IT 
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C  ON  SCRATCH  UNIT  2  FOR  INPUT  TO  MATRIX. 
C 

c0t1h0n/mathew/ncases,isymm,iprint,jetflg,igtype,ihinge 
c0ri;-,on/mark/nroks,nrowsj,nwt,njt,nmax,nn('*0  )  ,nj(  <+0  )  ,iw(  <fo  )  ,ij(  40  ) 

co:n:o;j/sclvi/b(  600.,io  i 

DIMENSION  TRANSilSIZE) 
C 

IREAD  =  0 

FIND( l'IREAD+1) 

REWIND  2 
C 
C   READ  THE  MATRIX  COEFFICIENTS 

DO  40   I  =  l.NEWMAX 

IFCI  .EQ.  NNT+1)  IREAD  =  NEWMAX 

IREAD  =  IREAD  +  1 

IFdSIZE  .GT.  600)  GO  TO  5 

READ( 1 'IREAD)  TRANS 

GO  TO  10 
5  READd 'IREAD)  (  TRANSIJ  )  ,J  =  1 , NEWMAX  ) 

C  PULL  OUT  THE  RIGHT  SIDE  MATRIX  COEFFICIENTS  AND  CONCATINATE  THEM 
10  DO  20  N  =  1,NCASES 

TRANS(NEWMAX+N)  =  BtI,N) 
20  CONTINUE 
C   THE  MATRIX  ROW  HAS  NOW  BEEN  ASSEMBLED  AND  FILLS  THE  TRANS  ARRAY. 
C   WRITE  THE  CONCATINATED  ROW  ON  ON  UNIT  2  FOR  INPUT  TO  MATRIX. 
30  WRITE(2)  TRANS 
40  CONTINUE 
C   THE  SYSTEM  OF  LINEAR  EQUATIONS  IS  NOW  READY  FOR  SOLUTION 

RETURN 

END 

SUBROUTINE   MATRIX! ND,    MD ,    KD,    NI ,    MM,    NO,    IR) 
C 

C  DIRECT        MATRIX        SOLUTION 

C 

COMMON/SOL V2/A( 10000 ) 

LOGICAL      LAST 
C 

N  =  NO 

M  =  riD 

KORE  =  KD 

NPM  =  N  +  M 

IF  (MAXOIS  *  NPM,  M  *  N)  . LT .  KORE)  GO  TO  20 

IR  =  2 

RETURN 
20  MT  =  MM 

REWIND  MT 

NIN  =  NI 

REWIND  NIN 

NOUT  =  fJO 

REWIND  NOUT 

MPl  =  M  +  1 

NN  =  N 

NEL  =  NPM 
C 

C  -  -  CALCULATE  THE  MAXIMUM  NO.  OF  ROWS,  'K* 
C 

30  K  =  (KORE  -  NEL)  /  NEL 
C 

C  -  -  TEST  TO  SEE  IF  THE  REST  OF  THE  MATRIX  WILL  FIT  IN  CORE 
C 

LAST  =  K  .GE.  NN 

IF  (LAST)  K  =  NN 
C 

C  -  -  READ  'K'  ROWS  OF  THE  AUGMENTED  'A'  MATRIX 
C 

40  NT  =  0 

DO  SO  IB  =  1,  K 

NS  =  NT  +  1 

NT  =  NT  +  NEL 
50  CALL   GETT(NIN,  1,  NEL,  A(NS),  1,  AA2 ) 
C 

C  -  -  CHECK  TO  SEE  IF  WE  WERE  UNLUCKY  ENOUGH  TO  END  UP  WITH  ONLY  ONE  ROW 
C 

IF  (K  .EQ.  1)  GO  TO  110 
C 

C  -  -  'K'  IS  GREATER  THAN  '1'  SO  WE  CAN  START  THE  TRIANGULARIZATION 
C 

NELPl  =  NEL  +  1 

NS  =  -  NEL 

NELP2  =  NELPl  +  1 
C 

C  -  -  FORM  THE  'TRAPEZOIDAL'  ARRAY   (8) 
C 

DO  60  IB  =  2,  K 

NP  =  NELP2  -  IB 

NS  =  NS  +  NELPl 

NT  =  NS 

DO  60  10  =  IB,  K 

NT  =  NT  +  NEL 

MN  =  NT 

NB  =  NS 

A(NT)  =  (-A(NT))  /  A(NS) 

DO  60  NF  =  2,  NP 

r'lN  =  MN  +  1 

NB  =  NB  +  1 
60  A(MN)  =  A(MN)  +  A(NT)  *  A(NB) 

IF  (LAST)  GO  TO  110 
C 

C  -  -  WRITE  THE  'TRAPEZOIDAL'  MATRIX  ON  TAPE 
C 
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NT  =  0 
NP  =  NEL 
NS  =  -  NEL 
DO  70  10  =  1,  K 
rJS  =  NS  +  NELPl 
NT  =  NT  +  NEL 

CALL   SAVE(MT,  2,  NP ,  NP ,  A(NS),  1,  AA2 ) 
70  NP  =  NP  -  1 
NP  =  NP  -  M 
NS  =  KORE  -  NEL  +  1 

-  -  READ  ANOTHER  ROW 

DO  100  10  =  1,  NP 

CALL   GETTININ,  1,  NEL,  A(NS),  1,  AA2 ) 

-  -  MODIFY  THIS  ROW  BY  THE  'TRAPEZOIDAL'  ARRAY 

NT  =  1 

MN  =  NS 

DO  90  IB  =  1,  K 

NB  =  NT 

NF  =  MN  +  1 

A(MN)  =  (-A(MN))  /  A(NT) 

00  80  NN  =  NF,  KORE 

NB  =  NB  +  1 

A(NN)  =  A(NN)  +  A(MN)  *  A(NB) 

MN  =  NF 

NT  =  NT  +  NELPl 


80 

90 

100 


WRITE  THE  MODIFIED  ROW  ON  TAPE 

NNl  =  KORE  -  MN  +  1 

CALL   SAVEfNO'JT,  1,  NNl,  NNl,  A(MN),  1,  AA2 ) 

REWIND  NOUT 
REWIND  NIN 

-  -  SWITCH  THE  TAPES 

NT  =  NIN 
NIN  =  NOUT 
NOUT  =  NT 

-  -  RE -CALCULATE  ROW  LENGTH  AND  LOOP  BACK 

NEL  =  NEL  -  K 
NM  =  NEL  -  M 
GO  TO  30 


-  -  REWIND  ALL  TAPES 

110  REWIND  MT 
REWirJD  NIN 
REWIND  NOUT 

-  -  CONDENSE  THE  MATRIX 

NN  =  NEL 

NL  =  NEL  +  1 

IF  (K  .EQ.  1 )  GO  TO  130 

NS  =  1 

NT  =  NEL 

DO  120  IB  =  2,  K 

NS  =  NS  +  NELPl 

NT  =  NT  +  NEL 

DO  120  10  =  NS,  NT 

AINL  )  =  Alio  I 
120  NL  =  NL  +  1 
130  Nl  =  KORE  -  K  *  M  +  1 

THERE,  NOW  WE  CAN  START  THE  BACK-SOLUTION 

*  *  NOTE.. THE  FIRST  AVAILABLE  LOCATION  FOR  THE  SOLUTIONS  IS  A(N1) 

NREM  =  N 
NEL  =  NPM 
LAST  =  K  .EQ.  N 
NPASS  =  0 

-  -  SOLVE  FOR  THE  ANSWERS  CORRESPONDING  TO  'K'  ROWS 


140  KMl  =  K  -  1 

KPl  =  K  ♦  1 

NS  =  NL  -  MPl 

NPASS  =  NPASS  +  1 

DO  170  MN  =  1,  M 

NF  =  NS  +  MN 

AINF  )  =  A(NF)  /  A(NS) 

NT  =  NS 

IF  (KNl  .EQ.  0)  GO   TO  170 

DO  160  IB  =  1,  KMl 

NF  =  NF  -  IB  -  M 

NT  =  NT  -  MPl  -  IB 

SUM  =0.0 

NP  =  NF 

N2  =  MPl  +  IB 

DO  150  10  =  1,  IB 

NN  =  NT  +  10 

NP  =  NP  +  N2  -  10 
150  SUM  =  SUM  +  AINNt  »  A(NP) 
IbO  AINF)  =  (A(NF)  -  SUM)  /  A(NT) 
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170  CONTINUE 
C 

C  MOVE  THE  SOLUTIONS  TO  CONTIGUOUS  LOCATIONS  STARTING  AT  A(N1) 

C 

Nl  =  KCRE  +  1 
DO  190  NN  =  1,  K 
DO  180  NN  =  1,  M 
NL  =  NL  -  1 
Nl  =  Nl  -  1 
180  A(N1  )  =  A(NL) 
190  NL  =  NL  -  NN 
C 

C  -  -  WRITE  THE  SOLUTIONS  ON  TAPE 
C 

WRITE  (NIN)  K 
NS  =  Nl  -  1 
DO  200  MN  =  1,  M 
NT  =  NS  +  MN 
200  WRITE  (  NIN  )  (A(IO),  10  =  NT,  KORE ,  M) 

C  TEST  IF  THIS  IS  THE  LAST  PASS 

C 

IF  (LAST)  GO  TO  280 
C 

C  WE  MUST  NOW  MODIFY  THE  TRIANGULAR  MATRIX  TO  REFLECT  THE  EFFECT  OF 

C      THE  SOLUTIONS  OBTAINED  SO  FAR   ( EQ  21) 

C  *  *  NOTE .. LOCATIONS  A( 1 )  TO  A(Nl-l)  ARE  NOW  FREE  TO  USE 

C 

C  -  -  CALCULATE  THE  NEXT  VALUES  OF  'NEL'  AND  'NREM' 

C 

NELOLD  =  NEL 

KOLD  =  K 

NEL  =  NEL  -  K 

NREM  =  NREM  -  K 
C 

C     CALCULATE  NEW  K.   B  AND  C  (REAL)  WILL  ALWAYS  BE  INTEGERS. 
C     K  WILL  BE  CALCULATED  REAL  AND  TRUNCATED  -  -  GOOD. 


C 


B  =  1  +  2*M 

C  =  2^(K0LD*(M+1)  -  KORE) 

K  =  ( -B  +  SqRT(B**2  -  4*C))/2.0 

NROH  =  NREM  -  K  +  1 

IF  (K  .LT.  NREM)  GO  TO  210 

LAST  =  .TRUE. 

NROW  =  1 


K  =  NREM 

210 

NS  =  1 

C 

C  -  - 

C 

NT  =  NELOLD  +  1 

READ  IN  THE  ROWS  TO  BE  MODIFIED 

DO  270  IB  =  1,  NREM 

NT  =  NT  -  1 

IF  (IB  .LE.  NROW)  GO  TO  220 

NS  =  NS  +  NN 

NT  =  NT  +  NN 

c 

C 

220 

»*ADDED  NEXT  LINE  AND  MODIFIED  CALL,  A.P 

NN=NT-NS+1 

CALL   GETT(MT,  2,  NN,  A(NS),  1,  AA2 ) 

NP  =  Nl  -  1 

NF  =  NT  -  M  -  KMl 

NN  =  NN  -  KOLD 

DO  2'+0  MN  =  1,  M 

N2  =  NF 

NA  =  NP  +  MN 

NB  =  NA 

SUM  =0.0 

DO  230  10  =  1,  KOLD 

SUM  =  SUM  +  A(N2  )  *   A(NA) 

N2  =  N2  +  1 

250 

NA  =  NA  +  M 

N2  =  N2  +  MN  -  1 

SODERMAN,  8/10/76****** 


2<*0  A(N2)  =  A(N2)  -  SUM 
C 
C  WRITE  THE  MODIFIED  ROW  ON  TAPE  OR  CONDENSE  THE  ROW 

NL  =  NT  -  M  +  1 

IF  (IB  .GE.  NROW)  ^0  TO  250 

NF  =  NL  -  KPl 

Nra  =  NF  -  NS  +  1 

NN2  =  NT  -  NL  +  1 

CALL  SAVE(NOUT,  <t,    NN,  NNl ,  A(NS),  NN2,  A(NL)) 

GO  TO  270 
250  NF  =  NL  -  KOLD 

DO  260  MN  =  NL,  NT 

A(NF)  =  A(MN) 
260  NF  =  NF  +  1 
270  CONTINUE 

REWIND  MT 

REWIND  NOUT 
C 

C  -  -  SWITCH  THE  TAPES 
C 

NT  =  MT 

MT  =  NOUT 

NOUT  =  NT 
C 

C  LOOP  BACK  THRU  THE  SOLUTION 

C 
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NL  =  NF 
GO  TO  1^0 

-  -  START  TO  HRAP  IT  UP 

280  REWIND  NIN 
UZ    =  N 

*  *   NOTE..  AT  THIS  POINT  ALL  LOCATIONS  A(l)  THRU  A(KORE)  ARE  FREE 

DO  300  IB  =  1,  NPASS 
READ  (NIN)  K 
Nl  =  N2  -  K  +  1 
NS  =  Nl 
NT  =  N2 

-  -  READ  IN  THE  SOLUTIONS 

NM  =  NT  -  NS  +  1 

DO  290  10  =  1,  M 

CALL   GETT(NIN,  1,NM,  A(NS),  1,  AA2 ) 
290  NS  =  NS  +  N 
500  N2  =  Nl  -  1 

IR  =  1 

RETURN 

END 

SUBROUTINE   SAVEdU,  IT,  N,  Nl,  Al,  N2 ,  A2 ) 

DIMENSION   Al(Nl),  A2(N2) 

GO  TO  (  10  ,  20  ,  30  ,  ^0  ),  IT 

NRITE  Al 
10  WRITE! lU)  Al 
RETURN 

WRITE  N  AND  Al 
20  WRITE! lU)   N,  Al 
RETURN 

WRITE    Al    ArJD    A2 
50   WRITE(IU)    Al,    A2 
RETURN 

WRITE    N,    Al,    AND    A2 
<i0   WRITE!  lU)    N,    Al,    A2 

RETURN 

ErJD 

SUBROUTINE  GETTdU,  IT,  Nl,  Al,  N2 ,  A2 ) 


AllNl  ),  A2(N2  ) 
,  20  ,  50  ,  ^0 


DIMENSION 

GO  TO  (  10  ,  20  ,  50  ,  ^0  ),  IT 

READ  Al 

10  READ(IU)  Al 
RETURN 

READ  Nl  AND  Al 
20  READ(IU)  Nl,  Al 
RETURN 

READ  Al  AND  A2 
50  READ(IU)  Al,  A2 
RETURN 

READ  IDUM  AND  Al 

-+0  READ!  lU)  IDUM,  Al 

RETURN 

END 

SUBROUTINE  BAKSUB! TRANS , SUMMER, NEWMAX  ) 

THIS  SUBROUTINE  BACK  SUBSTITUTES  THE  COEFFICIENT  MATRIX  AND  THE 
GANMA  SOLUTION  TO  CBTAIN  THE  RIGHT  SIDE  MATRIX  FOR  THE  PURPOSE  OF 
CHECKING  THE  MATRIX  SOLUTION. 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
C0;'iM0N/t1ARK/NR0WS  ,NROWSJ  ,NWT  ,NJT  ,NMAX,NH( '♦O  )  ,NJ(  C^0  )  ,IW(  ^0  )  ,IJ(  ^0  ) 
CCriilON/SOLVl/GAMMi!  600,10  ) 
DIHEr^SION  TRANS!  NEHHAX) , SUMMER!  NEWMAX  ) 

WRITE! 6,  10  ) 
10  FORMAT!  lHl,'i7X,26HBACK  SUBSTITUTION  SOLLTriDN ) 

CYCLE  THE  RIGHT  HAND  SIDES 
DO  60   N  =  1,NCASES 
IREAD  =  0 
FIND! l'IREAD+1) 

CYCLE  THE  MATRIX  ROWS  CORRESPONDING  TO  ELEMENTS  ON  THE  WING 

DO  'tO  I  =  1, NEWMAX 
READ  THE  COEFFICIENT  MATRIX  ROW 

IF! I  .EQ.  NWT+1)  IREAD  =  NMAX 

IREAD  =  IREAD  ♦  1 
20  READ! 1' IREAD)  TRANS 

SUM  UP  THE  TERMS  FOR  THIS  ROW  AND  RIGHT  SIDE 

SUMMER! I  I  =  0.00 

DO  50  J  =  1, NEWMAX 

SUMMER! I)  =  SUMMER  t)  +  TRANS! J )  *  GAMMA! J, N) 
20  CONTINUE 
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<+0  CONTINUE 

C   PRINT  THE  NTH  RIGHT  SIDE  COLUMN 
WRITEI6,  50  I  N, SUMMER 
50  FOKMATI 1H0,50X,17HRIGHT  SIDE  COLUMN,I4,60( /1X,10E13 .5  )  ) 

60  corjTir,'UE 

RETURN 

END 

SUBROUTINE  STAGES 
C 

C   THIS  SUBROUTINE  CONTROLS  CALCULATION  OF  ALL  LOADINGS  FOR  THE 
C   FUNDAHENTAL  AND  COMPOSITE  CASES 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

C0HM0N/t1ARK/NR0KS,NR0N3J,NNT  ,NJT  ,NMAX,NW(^0  )  ,NJ( '+0  )  ,IH(  ^0  )  ,IJ(  40  ) 

COMMON/ JOHN/  AREA , SPAN ,ARATIO ,TR .SWEEP ,CREF,CMAC ,CBAR ,XMC ,XCG 

COMMON/SPIRIT/  NEH'IAX  ,NEkiCMU,N0ALFA,L06lC  ,IR 

CQMM0N/GE0ril/Y(  <+0  )  ,CHCRD(  40  )  ,DELTAI  40  )  ,XB(  600  )  ,XI(  600  )  ,DEL(  600  ) , 
1  D(40),KK( 6001,ITYPE(600 1 

C0MM0N/GE0M2/XLEAD( 40 ) ,XTRAIL(  40  I ,TANLE(  40 1 ,TANTE(  40 ) 

C0MM0N/FCASE5/EPS I  600,10 ) ,BETA( 600 ,10 ) ,THETAi  40 , 10 ) ,THS(  40 ,10 ) 

COMMON/COMPOS/FACTOR ( 10,24  ),NCC 

COMMON/JCASE/CMU( 40  )  .CMUP( 40  )  ,CMUPP( 40  ) 

COMMON  /DERIV/  U0(  40  )  ,CLQ  ,CMQ  ,CMG)MC 

DIMENSION  CPREAD( 610  )  ,CPO( 600  )  ,CPA( 600  )  ,CPRO( 600  )  ,CPRA( 600  )  , 
1  CPP(600I 

EQUIVALENCE  (BETA( 1 , 1 )  ,CPO( 1 )  ) . ( BETA( 1,2),CPA( 11), 
1    {BETA(l,3),CPR0ll)),(BETA(i,4),CPRA(in,(BETA(l,5),CPP(in 

IF( LOGIC  .EQ.  3)  GO  TO  80 
C   CALCULATE  AND  PRINT  THE  LOADING  FOR  ALL  FUNDAMENTAL  CASES 
10  CALL  STG3FC(NEKMAX) 

DO  50   N  =  1,NCASES 

LCASE  =  N 
20  CALL  STG2FS(CLQ,CMQ,CMQMC,DUM4,NEWMAX,NOALFA, LCASE) 
30  CONTI^^JE 

IF( LOGIC  .EQ.  2)  WRITE(6,  40   )  CLQ ,CMQ,CMOMC 
40  FORMATllHO/  26X,43HLIFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING, 

1  17H  ABOUT  XCG,  CLQ  =,F10.6  / 

2  14X,51HPITCHING  MOMENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN, 

3  33H  DUE  TO  PITCHING  ABOUT  XCG,  CMQ  =,F10.6  / 

4  lbX,42HPITCHING  t:OMENT  COEFF  DERIVATIVE  ABOUT  XMC , 

5  3SH  DUE  TO  PITCHING  ABOUT  XCG,  CMQMC  =,  F10.6) 
CALL  STG3FT 

C 

C   CALCULATE  AND  PRINT  THE  LOADING  FOR  ALL  COMPOSITE  CASES 
1F(NCC  .LT.  1  J  GO  TO  100 
DO  60   M  =  1,NCC 
MCASE  =  M 
50  CALL  STG3C( NEWMAX, MCASE, NOALFA) 
60  CONTIfJ'JE 
70  GO  TO  100 
C 

C  CALCULATE  AND  PRINT  THE  COEFFICIENTS  AND  DERIVATIVES  FOR  ALL 
C   FUNDAMENTAL  CASES 

80  CALL  FUr,iDER(  EPS  ,CP0  ,CPA  ,CPRO  ,CPRA  ,CPP  , DEL  , CHORD  ,Y  ,DELTA  ,CMU, AREA  , 

1  CLQ,  CM3, CMQMC, CLLP,CriP2,NW,IJ,NMAX,NJT, NEWMAX, NCASES, NOALFA, 

2  NROKS,ISYMM,XLEAD,TANLE,XMC ) 
C 

C   CALCULATE  AND  PRINT  THE  STABILITY  DERIVATIVES  FOR  ALL  COMPOSITE  CASES 
90  CALL  COMDER( EPS, CPO,CPA,CPRO,CPRA,CPP,CPRE AD, DEL, CHORD, Y,CMU, 

1  DELTA,AREA,CLQ,CMQ,CMG!MC,CLLP,CNP2,N;),IJ,NMAX,NJT,NEWMAX, 

2  NCASES,NR0;i3,ISYMM,XLEAD,TANLE,XMC) 
100   RETURN 

END 

SUBROUTINE  STG3FC( NEWMAX ) 
C 

C   THIS  SUBROUTINE  COrrTROLS  CALCULATION  OF  CHORDWISE  LOADING 
C   FOR  FUNDAMENTAL  CASES 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COMMGN/MARK/NROHS ,r^RCHSJ ,NWT ,NJT ,NMAX ,NW( 40  )  ,NJ( 40  )  ,IW( 40  )  ,IJ( 40  ) 

COMMOr^/GEOMl/Y(  40 ), CHORD!  40  t ,DELTA( 40 ) ,XBl 600 ) ,XI ( 600  J , DELI  600  J , 
1  D(40  ),KK1600  ),ITYPE(600  ) 

COMMON/FCASES/EFS( 600 ,10 ) ,BETA( 600 ,10 ) ,THETA( 40,10  ),THS( 40,10  ) 

COMMON/JCASE/CMU(40  J ,CMUP( 40  )  ,CMUPP( 40  ) 

C0MM0N/S0LV1/CP( 600 , 10  ) 

DIMENSION  XBB15),CPEXP(5,10) 
C 

C   CALCULATE  AND  PRINT  THE  CHORDWISE  LOADING  OF  THE  FUNDAMENTAL  CASES 
C 
C   INITIALIZE  THE  UNUSED  VALUES  OF  CP  FOR  PRINTING 

NCI  =  NCASES  +  1 

IFtNCl  .GT.  10)  GO  TO  30 

DO  20  N  =  NCI, 10 

DO  10  I  =  1, NEWMAX 

CP(I,N)  =  0.00 
10  CONTINUE 
20  CONTINUE 
30  I  =  0 

II  =  NWT 

DO  320  K  =  1,NR0WS 

IFdPRINT  .GT.  0)  GO  TO  70 

WRITE(6,  40  ) 
40  FORMATl IHl ,35X, 12( 4H****  1  .IH*/ 

1  36X,49H*  CHORDWISE  LOADING  FOR  ALL  FUNDAMENTAL  CASES  */ 

2  36X,12(4H****),1H*) 

WRITE(6,  EO  )  K,Y(K),CHORD(K),(N,N=1,10) 
50  FORMAT! 1HO,35X,7HSECTION, 13, 5X,3HY  = ,F10 . 6 ,5X,7HCH0RD  =,F10.6/ 
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^ 


1       8X,1HI,5X,2HXB,3X,9(5X,^HCASE,I2),5X,<4HCASE,I5) 

ON  THE  WING 

WRITE(6,  60  1 
60  FORMATI 1H+,^HHING) 
70  N!,,;  =  NW(K1 

DO  100  L  =  1,NWK 

I  =  1  +  1 

DO   80    N    =  1,NCASES 

CP(I,N)    =  2.00    *    CP(I,N) 
80    COrjTIKUE 

IFdPRir.'T  .LT.    1)   WRITE16,    90    )    I  ,XB(  I) ,  (  CP(  I  ,N  )  ,N=1 ,10  ) 

90    FORtlATdH  ,I8,11FH.6) 
100    CONTINUE 

ILINES  =  NWK  +  4 

ON  THE  JET 

NJK  =  NJ(K) 

IF(CMU(Kt  .LT.  0.00011  GO  TO  1^0 
IFdPRINT  .LT.  1)  WRITE(6,  110  ) 
110  FORMATI IH  ,1X,3HJET) 
DO  ISO  L  =  l.NJK 

II  =  II  +  1 

DO  120  N  =  1,NCASES 

CPdI.N  I  =  2.00  *  CP(II,N) 
120  CONTI^JUE 

IFdPRINT  .LT.  1)  WRITE(6,  90  )  II  ,XB(  II  ) ,  (  CP(  II  ,N  )  ,N=1 ,10  ) 
130  CONTINUE 

ILINES  =  ILINES  +  NJK  +  1 

PRINT  THE  DETAILED  LOADING  ON  THE  SINGULAR  ELEMENTS 

LEADING   EDGE 
1^0    IFdPRIfJT    .GT.    0)    GO   TO   320 

WRITE(6,    150     1 
150    FORMAK  1H0,^5X,29HDETAILED    LEADING   EDGE    LOADING) 

IP    =    IIIIK  I 

DO  160  N  =  1,NCASES 

LCASE  =  N 

CALL  EXPLEl LCASE ,CP( IP, LCASE  )  ,CP( IP  +  1 , LCASE  )  ,DEL( IP  )  ,XBB,CPEXP  ) 
160  CONTINUE 

DO  170  M  =  1,5 

WRITE(6,  90  )  M,XBB(M),(CPEXP(M,N),N=1,NCASES) 
170  CONTINUE 

ILINES  =  ILINES  +  7 

HINGES 

IFdHINGE    .EQ.    0)    GO   TO   320 

J    =    IWIK)    -    1 

DO    250    L    =    l.NWK 

J    =   J    +    1 

IFdTYPE(J)    .LT.    ^0)    GO   TO    250 

DO  180  N  =  1,NCASES 

LCASE  =  N 

CALL  EXPH1(LCASE,CP(  J,N),CP(  J-1,NKDEL(  J-1),BETA(  J,N), 
1  CHORD(K),XB( J  ),X5B,CPEXP  I 

180  CONTINUE 

IFdLINES  .LT.  46)  GO  TO  200 

WRITE (b,  1^0  ) 
190  F0Rt1AT{  IHI  ) 

ILIfJES  =  1 
200  WRITE(6,  210  )  J 
210  FORMATI  1H0,42X,33HDETAILED  HINGE  LOADING  ON  ELEMENT  ,1'Ht ) 

DO  220  M  =  1,5 

WRITElo,  90  )  M,XBB(M),(CPEXP(M,N),N=1,NCASES) 
220  CONTINUE 

DO  230  N  =  1,NCASES 

LCASE  =  N 

CALL  EXPH2I LCASE ;CP( J,N  )  ,CPI J  +  1 ,N  )  ,DEL( J  )  ,BETAI J ,N  ) , 
1  CHORD(K),XBI J J,XBB,CPEXP) 

230  CONTINUE 

DO  2'40  M  =  6,10 

HRITEIb,  90  )  M,XBBIM-5),ICPEXPIM-5,N),N=1,NCASES) 
240  CONTINUE 

ILINES  =  ILINES  +  12 
250  CONTINUE 

IFKNJIK)  .EQ.  0)  .OR.(CMU(K)  .  LT .  O.OOOD)  GO  TO  320 

J  =  IJIK ) 

IFdTYPE(J)    .NE.    ^S  )    GO   TO   320 

DO  260  N  =  l.NCASES 

LCASE  =  N 

II  =  IWIK)  +  NW(K)  -  1 

CALL    EXPH1(LCASE,CP(  J,N),CPdl,N),DEL(Il),BETA(  J,N), 
1  CHORDIK),XBI J1,XBB,CPEXP) 

260   CONTINUE 

IFdLINES    .LT.    46)   GO   TO   270 

WRITE! 6,    190     ) 

ILINES  =  1 
270  WRITE16,  280  )  J 
280  FORMATI  iH0,'+0X,37HDETAILED  JET  HINGE  LOADING  ON  ELEMENT, 14) 

DO  290  M  =  1,5 

WRITEI6,  90  )  M,XBBIM),ICPEXPIM,N),N=1,NCASES) 
290  CONTINUE 

DO  300  N  =  l.NCASES 

LCASE  =  N 

CALL  EXPH2(LCASE,CP( J,N),CP( J+1,N),DEL(J),BETA(J,N), 
1  CHORD(K),XBI J  ),XBB,CPEXP) 

300  CONTINUE 

DO  310  M  =  6,10 

WRITEI6,  90  )  M,XBB(M-5  ),(CPEXPIM-5,N),N=1,NCASES) 
310  CONTINUE 
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ILINES  =  ILINES  +  12 
320  CONTINUE 

RETURN 

END 

SUBROUTINE  STG3FS( CLQ ,CMQ ,CMQMC ,CLLP ,NEWMAX ,NOALFA , LC  ) 
C 

C   THIS  SUBROUTINE  CONTR'LS  CALCULATION  OF  ALL  SPANWISE  AND  TOTAL 
C   LOADING  FOR  FUNDAMENT.  '.  CASES 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COMMON/HARK/NROi;S,NROKSJ,NWT,NJT,NriAX,NWU0),NJ(^0  )  ,IW(  ^0  )  ,IJ(  ^0  ) 

COMMON/JOHN/  AREA , SPAN, ARATIO,TR,SKEEP ,CREF,tMAC,CBAR .XMC.XCG 

COriI10N/GEONl/Y(40  ), CHORD!  "+0  ),DELTAl'40  )  ,XB(  600  ),XII  600  )  ,DEL(  600  ) , 
1  DC^O.KKlbOO  ),ITYPE(600) 

COMMON/GEOM2/XLEAD('+0  KXTRAILC^O  )  ,TANLE( '+0  )  ,TANTE(  ^0  ) 

COMHON/FCASE2/TST140,lO),HL(40,10)j,DJ(40),ACTEI40  ),AC(  20,^0), 
1  XMBC+j-^O  ),BET('^,'tO  ),IFS('+,'+0),ICT(^0  1,IHT(<+6),NCT,NHT 

C0MM0N/FCASE3/EPS( 600,10  I  ,BETA( 600 ,10 ) ,THETA(  "+0 , 10 ) ,THS(  40 , 10 ) 

COMMON/JCASE/CMU(  "+0  I  ,tMUP(  40  )  ,CMUPP(  40  ) 

C0MM0N/S0LV1/CP( 600,10) 

COMMON/LOAD 1/  THIST( 40  )  ,H0( 40  )  ,TH( 40  )  ,THETS( 40  ) , 
1  BTA(600  ),EP(660 l,CPD(600) 

C0MM0N/L0AD2/  CLG( 40  )  ,CLHUl 40  )  ,CL ( 40 ) ,CDMU( 40  )  ,CDG( 40  )  ,CDI ( 40 ) , 
1  CS(40  ).CM3(40  ),CMMUl4o  l,CMT{40  I  ,CM( 40 ) ,XBCP( 40  I ,XBCL( 40 ) 

COMMON/LOADS/  CCLG( 10  )  ,CCLJ( 10  )  ,CCL( 10  )  ,CCMG( 10  )  ,CCMJ( 10  ) , 

1  CCMT{ 10),CCM( 10  ),CMGMC( 10 ),CMJMC( 10 l,CMTKC(  10 ) ,CKMC(  10 ) , 

2  CXCPI 10),CXCL( 10  l,CCJ( 10),CCDG( 10),CCDJ( 10),CC$( 10),CCDI(10), 

3  CDITZI 10),CLLG( 101,CLLJ( 10  ),CLL( 10),CNJ( 10 ) ,CNI ( 10 ) ,CCY( 10), 

4  CXCPB( 10  l.CXCLBI 10  I 

C0MM0N/L0AD4/  CLG0( 40 ) ,CLMU0( 40 ) ,CLO( 40 ) ,CDMUO( 40  )  ,CDGO( 40  ) , 

1  CDIO( 40  I  ,CSOl 40  )  ,CT0( 40  )  ,CMGO( 40  )  ,CMMU0( 40  )  ,CMT0( 40  )  ,CMO( 40 ) , 

2  XBCP0I40),XBCL0(40),FACT(  10) 

COMMON/LOADS/  CGAMI 40  )  .CGAMOI 40  )  ,ALFINF( 40  )  .ALFINOt  40 ) ,DUMB( 40 ) 
COMMON/LOAD 7/CBGRl 10  )  ,CBGLI 10 ) ,CBJR( 10 ),CBJL( 10 ) , 
1  CBR( 10  )  ,CBL( 10  )  ,CPBMR( 10  )  ,CPBHL( 10  J ,CL2R( 10 ) ,CL2L(  10 ) 

C 

10  N  =  LC 

LCASE  =  LC 
C 

C   LOAD  THOSE  GEOflETRIC  PARAMETERS  WHICH  ARE  DIFFERENT  FOR  EACH  CASE 
C   INTO  THEIR  RESPECTIVE  DUMMV  ARRAYS 
DO  30   K  =  IjNROWS 
TWIST(K)  =  TST(K, LCASE) 
20  THIK)  =  THETA(K, LCASE  ) 
THETS(K)  =  THS(K, LCASE) 
HOIK  )  =  HLIK, LCASE  ) 
DUMBiK  )  =  0.00 
30  CONTINUE 

DO  50   I  =  IjNEWMAX 

40  BTA(I)  =  BETA(I,LCASE ) 

EPd  I  =  EPSd, LCASE  ) 

CPD( I  )  =  CP(I,LCASE) 

50  CONTINUE 

C 

C   COMPUTE  SECTIONAL  COEFFICIENTS 
ALPHA  =  0.00 

IF((LCASE  .EQ.  1)  .AND.  (NOALFA  .NE.  0))  ALPHA  =  1.00 
60  CALL  SLOADI ALPHA, IJ,NW,NJ, CHORD, CHU,TH,THETS, TWIST, 

1  XB,DEL,BTA,EP,CPD,CL,CLG,CLMU,CM,CMG,CMtlU,CMT,XBCP,XBCL, 

2  CDl  ,CDnU ,CDG ,CS ,CTO ,NROWS ,IHINGE ) 

C   COMPUTE  SECTIONAL  VORTICITY  OF  WING-JET  SYSTEM 

CALL  SLOADG(CPD, DEL, BTA, CHORD, D,CMU,NJ,IJ,CLG,CGAM,NROWS,IHINGE  ) 
C 

C   COMPUTE  SECTIONAL  DOHNWASH  AT  INFINITY 

70  CALL  TREFTZ(Y, DELTA, CMU,CGAM,ALFINF,NROWS,ISYMM) 

C   COMPUTE  TOTAL  LINEAR  COEFFICIENTS 

80  CALL  TLOADI ALPHA, AREA, CREF,XMC,Y, DELTA, CHORD, HO, XB.XLE AD, BTA, 

1  CLG,CLMU,CMG,CMtiU2CHT  ,Cr'U,CCLGl  N  t  ,CCLJI  N  )  ,CCLI  N  )  ,CCMGI  N  ) , 

2  CCMJ(  N  )  ,CCMT(N  )  ,CCri(  N  )  ,CMGf1CI  N  I  ,CMJMC(  N  )  ,CMTMC(  N  )  ,CMHC(  N  )  , 

3  CXCP(N),CXCL(N1,CXCPB(N),CXCLB(N),CCJ(N),CLLG(N),CLLJ(N), 

4  CLL(N),ITYPE,IN,NN,i;R0t;S,ISVr-.!1, 

5  CBGR( N  )  ,CBGL( N  )  ,CBJR( N 1 ,CBJL( N ) ,CBR( N ) ,CBL(  N ) , 

6  CPEMRIN),CPEML(N),CL2R1N),CL2L(N)) 

C   COMPUTE  TOTAL  NONLINEAR  COEFFICIENTS 

90  CALL  TLOADXI AREA, CHORD. DELTA, Y,CMU,CDG,CDMU,CS,CDI,CL, DUMB, 

1  CCDG(N),CCDJ(N),CCS(N  •  ,CCDI ( N ) ,CDIT2l N ) .DUMB ,ALFINF ,DUMMY ,CCJ( 1) , 

2  CNJl N ) ,CNI ( N  )  ,CCY( N  )  ,XLEAD ,TANLE ,XMC ,NR0WS ,ISYMI1  ) 

C   DEFINE  THE  CONSTANT  STABILITY  DERIVATIVES 
CLQ  =  CCL6(NCASES) 
CMQ  =  CCMG(NCASES) 
CMQMC  =  CMGMC(NCASES) 
CLLP  =  CLLG(NCASES) 
C 

C  PRINT  LIFT  AND  DRAG  COEFFICIENTS 
IFdPRINT  .GT.  1  )  RETURN 
WRITE! 6,  100  )  LCASE 
100  FORMAT! IHl, 36X, IK 4H****),2H**/37X,23H*   SPANWISE  LOADING  FOR, 
1        17H  FUNDAMENTAL  CASE, 13, 3H   */37X,ll( 4H****  )  ,2H**  ) 
WRITE! 6,  110  ) 
110  FORMAT!  IH  ,19X,29H LIFT  ,5X, 

1  2H..,7I4H ),14H  INDUCED  DRAG  ,  81 4H )/ 

2  IX,  7HSECTI0N,  5X  ,  IHY ,8X,3HCLG ,7X ,4HCLMU,6X,2HCL ,5X, 

3  4H   *  ,3X,3HCDG,8X,4HCDMU,7X,2HCS,9X,2HCD,9X,3HCMU, 

4  8X,5HGAMMA,6X,5HALFIN) 

WRITEI6,  120  )  IK,Y1K),CLG!K),CLMU(K),CL!K),CDGIK),CDMU!K), 
1  CSI K  )  ,CDII K  )  ,CMUI K ) ,CGAM! K ) ,ALFINF1 K ) ,K=1 ,NROWS ) 

120  FORMAT! IH  ,14,  4X,  4F10.6,  4H  *    ,7F11.7) 
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WRITEr6,    150    )    CCLG(N),CCLJ(N1,CCL(N),CCDG(N),CCDJ(N),CCS(N), 
1                         CCDI(Nl,CCJ(Nl,CDITZ(N  I 
130    FORMATdH     ,    8X.    4(  lOH I  ,^H      *    .7(11H )/ 

1  12X,5HT0TAL,2X,2F10.6,<+H      *    ,5Fll .  7, 11X,F11 .  7  ) 

PRINT  PITCHING  MOMENT  AND  CENTER  OF  LIFT  DATA 

IF(NROWS  .GT.  21)  HRITElb,  l-^O  ) 
l-^O  FORMAT  (  IHl  I 

KRITE(6,  150  ) 
150  FORMATl  IhO,2<4X,59H PITCHING  MOMENT  ,10X, 

1  20H  . . .  LIFT  CENTER  . . ./ 

2  6X,    7HSECTI0N,5X,1HY,8X,3HCMG,7X,<+HCMMU,6X,3HCMT,7X,2HCM, 
2                  5X,10H        *      *         ,SX,5HXCP/C,5X,5HXCL/C) 

WRITE(6,    IbO     )    (K,Y(K),CMG(K  ),CMr-1U(K),CMTlK),CM(K),XBCP(K),XBCL(K) 
1,  K=1,NR0WS1 

160    FORMATdH    ,I9,'*X  ,5F10  . 6  ,10H        *      *         ,2F10.6) 

WRITE(fe,    170     I    CCMG(N),CCMJ(N).CCMT(N),CCM(N).CXCP(N),CXCL{N), 
1                      CMGMC( N ) ,CMJMC( N ) .CMTMtl N  )  ,CNMC( N  )  ,CXCPB( N  )  ,CXCLB( N  ) 
170    FORMATdH    ,1SX,    5dOH ),i6h        *      *         .    2d6H )/ 

1  17X,SHTOTAL,2X,    4F10.6,    lOH      (APEX)       ,2FIo.6,9H    (X/CREF)/ 

2  2'4X,<+F10.6,l0H   (XMC)    ,2F10.6,8H  (X/B/2)) 
RETURN 

END 

SUBROUTINE  STG5FT 

THIS  SUBROUTINE  PRINTS  A  TABLE  OF  ALL  TOTAL  COEFFICIENTS 
FOR  ALL  FUNDAMENTAL  C.  SES 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/LOADS/  CCLG(  lO  )  .CCLJl  10),CCL1  10  I.CCMGf  10),CCMJdO), 

1  CCMTI 10),CCM( 10  ).CMGriC{ 10  ),CMJMC( 10 ),CMTMC( 10  l,CMMC( 10), 

2  CXCP( 10),CXCL( 10  ),CCJ( 10  ),CCDGl 10  ),CtDJ( 10 ),CC$( 10 ),CCDI(  10), 
5     CDITZt  10),CLLG'  lOKCLLJl  10  )  ,CLL(  10  )  ,CNJ(  10  )  ,CNIdO  )  ,CCYd0  ) , 
^  CXCPBdO  )-CXCLB(  10) 

CHARACTER'S  COEFFt  35) 
COMriON/LOAD6/COEFF 

COt1!lON/L0AD7/CBGR(  10  )  ,CBGL(  10  )  ,CBJRt  10  )  ,CBJL(  10  ) , 
1  CBRl 10  )  ,CBH 10  )  ,CPBMR( 10  )  ,CPBML( 10  )  ,CL2R( 10  )  ,CL2L( 10 ) 

INITIALIZE  ALL  UNUSED  TOTAL  COEFFICIENTS  TO  ZERO  FOR  PRINTING 
IFINCASES  .EQ.  10)  GO  TO  20 
NCI  =  NCASES  +  1 


10 
20 

30 


DO    10      N 

CCLGfN ) 

CCLJ(N I 

CCL(N) 

CCDG(N) 

CCDJ(N) 

CCS{N  ) 

CCDIlN) 

CDITZ(N  I 

CCJIN) 

CCMGINI 

CCMJtN I 

CCMT ( N  ) 

CCM(N) 

CXCPIN) 

CXCL(N ) 

CXCFBIN) 

CXCLBIN I 

Cri3I1C(N  ) 

CMJMC ( N ) 

CMTt1C(  N  I 

crinciN ) 

CLLGIN) 

CLLJINI 

CLLIN) 

CNJ(N) 

C^JIIN) 

CCY(N) 

CBGR(N  I 

CBGL(N) 

CBJR(N) 

CBJL(N) 

CBRIN) 

CBL(N) 

CPBMRIN I 

CPBMLIN  I 

CCrJTINUE 

HRITE(b. 


NCI, 10 
0.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

.00 

,00 

,00 

,00 


0.00 
0.00 
0.00 
0.00 
0.00 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


0.00 
0.00 
0.00 
0.00 


.  30  )  (N.N=1,10) 

FORHAT(  1H1,41X,  ^(<+Hif***)/ 

1  '+2X,3faH*   TOTAL  AERODYNAMIC  COEFFICIENTS 

2  1'>X,914HCASE,I2,5X),  4HCASE,I3) 
^0  FORMAT(iH0,  2X ,A8 , lOFll . 7 ,3^( /3X , AS ,10F11 . 7 ) ) 

WRITE(6,  40  )COEFF(  1),  CCLG,  COEFF(  2),  CCLJ 
COEFF(  <+),  CCDG,  COEFF(  5),  CCDJ 
COEFF(  7),  CCDI,         " 
COEFFdO),  CCMG, 
COEFFdS),   CCM, 
COEFF( 16),CXCPB, 
COEFFl 19), CMJMC, 
COEFF(22),  CLLG, 
C0EFF(25),   CNJ, 


»/42X,9(4H»*»*)// 


C0EFF(  8),CDITZ 
COEFFdl),  CCMJ 
COEFF(  1-^),  CXCP 
COEFFl 17),CXCLB 
COEFF( 20  ),CMTMC 
COEFF( 23),  CLLJ 
C0EFF(2fe),   CNI 


COEFF( 28  )  ,CBGR,COEFF( 29  )  ,CBGL,COEFF( 30 
COE FF( 31 t,CBJL, COEFFl 32  ),  CBR, COEFFl 33 
COEFFl 34 ) ,CPBMR,COEFF( 35  )  ,CPBML 


,  COEFF(  3) 
,  COEFF(  6) 
,  COEFF(  9) 
,  COEFF( 12) 
,  C0EFFd5) 
,  COEFFl  18) 
,  COEFFl 21 ) 
,  COEFFl  24) 
,  COEFFl 27 
),CBJR, 
),CBL, 


,  CCL, 
,  CCS, 
,  CCJ, 
,  CCMT, 
,  CXCL, 
,CMGMC, 
,  CMMC, 
,  CLL, 
),  CCY, 


50  RETURN 
END 
SUBROUTINE  STG3C( NEWMAX,M,NOALFA  ) 


US 


C   THIS  SUBROUTIfJE  CONTROLS  CALCULATION  OF  CHORDWISE ,  SPANWISE  AND 

C   TOTAL  LOADING  FOR  THE  REQUIRED  COMPOSITE  CASES 

C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COnf1OM/riARK/NRO:iS,NROISSJ,NWT,NJT,NriAX,N;jU0  I.NJf'+O  ),IW(^0),IJ(<+0) 
com  10;>l/ JOHN/    AREA,SPAN,ARATI6,TR,SWEEP,CREF,CMAC,CBAR,XMC,XCG 
COrU-lON/GEOMl/Yt  ^0  ) , CHORD!  "+0  t  .DELTAI  '+0  )  ,XB(  600  )  ,XI(  600  )  ,DELl  600  ) , 
1  DC+O  ),KK(600  )  .ITYPEI 600  ) 

COMMON/GEOM2/XLEADU0  (^XTRAILC+O  )  ,TANLE  (  40  )  ,TANTE  ( <+0  ) 
COMr.Orj/FCASEe/TSTC^O.lOj.HLC+O.lO  I,DJ140  ),ACTE('+0),AC(20,<*0), 
1  XHB(4,'+0),BcT(4,40  ),IFS(4,aOKICTI'+0),IHT(<+0  ),NCT,NHT 

C0MM0N/FCASE3/EPS(  bOO,10  ),BETA(  600,10  I  .THETAC+O  ,10  )  ,THS(  ^tO  ,10  ) 

cotit;3N/jcASE/Cfiui  40  )  ,Criup( 40 )  ,crrjpp(  40 ) 

COMhON/SOLVl/CP( 600,10 ) 

CO;inON/COHPOS/FACTOR(10  ,  24  )  ,NCC 

COMMON/LOADl/  THISK  40  )  ,H0( 4o  )  ,TH( 40  )  ,THETS( 40  ) , 
1  BTA(600  I,EP1600 t,CP0(600  I 

C0MM0N/L0AD2/  CLG(  40  )  ,CLMU(  40  )  ,CL  (  40  )  ,CDMU(  40  )  j,CDG(  40  )  ,CDI  (  40  ) , 
1  CS( 40 ) ,CMG( 40  I ,Cf1KUI 40  )  ,CMT( 40  )  ,CMI 40  I  ,XBCP( 40  )  ,XBCL( 40  ) 

COMMON/LOADS/  CCLG( 10  I  ,CCLJ( 10  I  ,CCL( 10  )  ,CCHG( 10  )  ,CCMJ( 10  1 . 

1  CCHT( 10),CCMl 10  l,CriGMC( 10),CMJMC( lO  l,CHTMC( 10  I.CMMCf  io  1 , 

2  CXCP( 10  l,CXCL( 10  ),CCJ{ 10  l,CCDG( 10  ),CCDJ( 10  ),CC$( 10  l,CCDI( 10  ), 

3  CDIT2( 10),CLLG( 101,CLLJ( 10  l,CLH 10),CNJ( 10),CNI( 10  ),CCY(10), 

4  CXCPB(10),CXCLB(101 

C0MM0N/L0AD4/  CLGO( 40 ) .CLMUOl 40  I ,CLO( 40 ) ,CDMU0( 40 ) ,CDGO( 40  ) , 

1  CDIO( 40  )  ,CSO( 40  )  ,CTO( 40  )  ,CMGO( 40  )  ,CMMUO( 40  )  ,CMTO( 40  )  ,CMO( 40  ] , 

2  XBCP0(40),XBCL0(40), FACT! 101 

COMMON/LOADS/  CGAM( 4o ) ,CGAM0l 40 ) , ALFINF( 40  )  ,ALFINO( 40  )  ,DUMB( 40  ) 
CHARACTER'S  C0EFF(35) 
C0ril10N/L0AD6/C0EFF 

C0.MriCN/L0AD7/CBGR(  10  )  ,CBGL(  10  )  ,CBJRr  10  1  ,CBJL(  10  ) , 
1  CBRl 10 ) ,CBL( 10  I ,CPBMR( 10 ) ,CPBML( 10  )  ,CL2R( 10 ) ,CL2L( 10  ) 

DIMENSION  CDMUX( 40 ) ,CDGX( 40  )  ,CDIX( 40  )  ,CSX( 40  )  ,CPA( 600  ) 
EQUIVALENCE  ( CP( 1 ,1  )  ,CPA( 1  )  ) 

C   CALCULATE  AND  PRINT  THE  CHORDWISE  LOADING  FOR  ALL  COMPOSITE  CASES 
C 

I  =  0 

II  =  NWT 
ILINES  =  6 
WRITE! 6,  10  )  M 

10  FORMAT! iHl ,56X, 111 4H**** ) ,1H*/ 

1  27X,39H*   CHORDWISE  LOADING  FOR  COMPOSITE  CASE, 13, 3H   */ 

2  37X,11!4H^^*«**),1H*  ) 

WRITEI6,  20  )  IN,N=1,10  ),1FACTORIN,M),N=1,10) 
20  FORMATIlH  ,48X, 24HFUNDAMENTAL  CASE  FA!;TOR$/10X,9( 5X,2HAI  ,11 ,1H  ) , 
1      3X),5X,2HA!  ,: 2 ,1H  )/10X,10F12 . 6  ) 
WRITE ! 6  25  ) 

25  FORMAT! iH0,7X,47H***  NOTE  i^*^      EACH  LEADING  EDGE  CP  VALUE  IS  THE, 
1       43H  AVERAGE  VALUE  OF  THE  SINGULAR  DISTRIBUTION) 

IFIIHINGE  .NE.  0)  WRITE! 6,26  I 

26  FORMAT! IH  ,21X,47HIF  A  HINGE  IS  DEFLECTED  THE  LOADING  IS  SINGULAR, 
1     58H  AND  THE  CPIA=0)  VALUE  IS  FOR  THE  REGULAR  EVD  PORTION  ONLY) 

WRITE (6  2  7) 

27  FORMAT! in  ,21X,41HD0  NOT  PLOT  THESE  LOADING  POINTS  DIRECTLY) 
DO  190  K  =  1,NR0NS 

C   ON  THE  WING 

NWK  =  NW!K) 
DO  50    L  =  1,NWK 
1=1  +  1 
30  CPOII  )  =  0.00 

DO  40   N  =  IjNCASES 
FACTIN)  =  FA(fTOR!N,M) 
CPO(I)  =  CPOII)  +  liP!I,N)  *  FACTIN) 
40  CONTIfftJE 
50  CONTINUE 

NCI  =  NCASES  +  1 
IF! NCI  .GT.  10  1  GO  TO  70 
DO  60   N  =  NCI, 10 
FACT!N  t  =  0.00 
60  CONTINUE 
70  Jl  =  IN!K) 

J2  =  IWIK)  +  NWK  -  1 
NEXT  =  3  +  (2+NOALFA)  *  INWK/10+1) 

IF!CMUIK1  .GT.  O.C)  NEXT  =  NEXT  +  12+NOALFA)  *  (NJIK)/10+1)  +  1 
ILIMES  =  ILItJES  +  NEXT 

IF!!ILINES  -LT.  56)  .OR.  IK  .EQ.  1))  GO  TO  90 
WRITE! 6,  80  ) 
80  FORMAT! iHl  ) 

ILINES  =  1 
90  WRITE! 6,  100  )  K ,YI K  1  ,CHORDI K  ) 
100  F0RMATI1H0,35X,7HSECTI0N,I3,5X,3HY  =,F10.6,5X,7HCHORD  =,F1Q.6/ 
1       2X,4HWINGI 
WRITEI6,  110  )  IXBI J),J=J1,J2) 
110  FORMATIlH  , 7X,2HXB ,10F12 . 6 ,31 /10X,10F12 . 6  )  ) 

WRITEI6,  120  )  ICPO! J),J=J1,J2) 
120  FORMATIlH  ,2X,  7HCPI A=0 ) ,10F12 . 6 ,3! /lOX ,10F12 . 6  )  ) 
IFINOALFA  .GT.  0)  WRITEI6,  130  )  I CPAIJ  ) , J=J1 ,  J2  ) 
130  FORMATIlH  ,2X,  7HCPI A=l )  ,10F12 . 6 ,3! /10X,1CF12 . 6  )  ) 
C 
C   ON  THE  JET 

NJK  =  NJIK) 

IFICMUIK)  .LT.  0.0001)  GO  TO  190 
DO  160  L  =  1,NJK 
II  =  II  +  1 
140  CPOIII  )  =  0.00 

DO  150  N  =  1, NCASES 

CPOIII)  =  CPOIII)  +  CPIII,N)  *  FACTIN) 
150  CONTINUE 
160  CONTItJUE 
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170  Jl  =  IJ(K) 

J2  =  IJ(K)  +  NJK  -  1 

WRITE(b,  180  ) 
ISO  FORMAT  I  IH  ,'+H  JET  ) 

WP.ITE16,  110  )  (XBr  J),J=J1,J2) 

WRITE(6,  120  ) *   ■- 

IFINOALFA  .GT. 
190  CONTINUE 


(CPO(  J'),J=J1,J2) 
0)  HRITE(6,  130  ) 


(CPA( J),J=J1,J2) 


COMPUTE  AND  PRINT  SPArJWISE  AND  TOTAL  LOADINGS  FOR  EACH  COMPOSITE  CASE 

DEFINE  THE  FUNDAMENTAL  CASE  VARIABLES  FOR  ALPHA  =  1 
IFINOALFA  .EQ.  0  I  GO  TO  250 


DO  210  K  =  l.NROWS 
200  TWIST (K  )  =  TSTIK.D 

TH(K)  =  THETA(K,1) 

THETSIK  1  =  THS(K,1) 
210  COrJTINUE 

DO  250  I  =  l.NEWlAX 
220  BTA(  I  )  =  BETAd.l) 

EPd  I  =  EPS(I,1  ) 
230  CONTINUE 

COMPUTE  SECTIONAL  COEFFICIENTS  FOR  ALPHA  =  1 
ALPHA  =  1.0 
21^0  CALL  SLOADt  ALPHA, IJ,NW,NJ, CHORD, CMU,TH,THETS, TWIST, 

1  XB,DEL,BTA,EP,CPA,CL,CLG.CLMU,dM,CMG,CMMU,CMT,XBCP,XBCL, 

2  CDI,CDMU,CDG,CS,CTO,NROW$,1HINGE ) 

COMPUTE  SECTIONAL  VORTICITY  FOR  ALPHA  =  1 

CALL  SLOADGICPA, DEL, BTA, CHORD, D,CMU,NJ,IJ,CLG,CGAM,NROWS,IHINGE) 

COMPUTE  SECTIONAL  DOWt>IWASH  AT  INFINITY  FOR  ALPHA  =  1 
CALL  TREFTZI  Y, DELTA, CMU,CGAM,ALFINF,NROWS,ISYMM) 

MODULATE  AND  SUM  THE  FUNDAMENTAL  CASE  VARIABLES  FOR  ALPHA  =  0 
250  DO  280  K  =  1,NR0HS 

TUIST(K  )    =    0.00 

TH(K  t    =    0.00 

THETS(K1    =    0.00 

HOIK  t    =    0.00 

DO  270  N  =  1,NCASES 
260  TWIST(K)  =  THIST(K)  +  TST(K,N)  *  FACT(N) 

TH(K)    =    TH(K)    +    THETA(K,NI    *    FACT(Nl 

THETS(K)    =    THETSIK  1    +    THS(K,N)    ^    FACT(N) 

HOIKi    =    HO(K)    +    HL(K,N)    *    FACT(N) 
270   COrJTINUE 
280    CONTIN'JE 

DO   320    I    =    l.NEWMAX 
290   BTAd  )    =    0.00 

EPd  I    =    0.00 

DO  310  N  =  l.NCASES 
300  BTAd)  =  BTA(I)  +  BETAd,N)  *  FACT(N) 

EPd  I  =  EPd)  +  EPSd,N)  *    FACTIN) 
310  COt^TINUE 
320  CONTINUE 

COMPUTE  SECTIONAL  COEFFICIENTS  FOR  ALPHA  =  0 
ALPHA  =  0.00 

IFINOALFA  .GT.  0  1  ALPHA  =  FACT(l) 
330  CALL  SLOAD( ALPHA, IJ,MW,NJ, CHORD, CMU,TH,THETS,TWIST, 

1  XB .DEL ,BTA ,EP ,CPO ,CL0 ,CLGO ,CLMUO ,CM0 ,CMGO ,Ct1MU0 ,CMT0 , 

2  XBCPO  ,XBCL0  ,CDIO  ,CDr'.UO  ,CDG0  ,CSO  ,CTO  ,NROWS  ,IHINGE  ) 

COMPUTE  SECTIONAL  VORTICITY  FOR  ALPHA  =  0 
3'+0  CALL  SLOADGl  CPO  ,DE'.  ,BTA  , CHORD  ,D  ,CMU,NJ  ,IJ  ,CLG0  ,CGAM0  ,NROWS,IHINGE  ) 

COMPUTE  SECTIONAL  DOWNWASH  AT  INFINITY  FOR  ALPHA  =  0 
350  CALL  TREFTZIY, DELTA, CMU,CGAMO,ALFINO,NROWS,ISYMM) 

COMPUTE  SECTIOfUL  hJONLItJEAR  CROSS-PRODUCT  COEFFICIENTS 
IF(NOALFA  .EQ.  0  I  GO  TO  370 
360  CALL  SLOADX(CPA,CPC,0EL.EP,CMU,TH,NN,NJ,IJ, 
1  CLGO ,CD6x ,CDMUX ,CSX ,CDIX ,NROWS  ) 


COMPUTE  TOTAL  LINEAR  COEFFICIENTS  FOR  ALPHA  =  0 

370  CALL  TLOAD0(CREF,CCLG,CCLJ,CCMG,CCMJ,CCMT,CMGMC,CMJMC.CMTMC, 

1  CLLG,CLLJ,FACT,CCLGO,CCLJO,CCLO,CCMG6,CCMJO.CCMT6.CCMO, 

2  CHGMCO ,CMJMCO .CMTMCO ,Cr"lC0 ,CXCP6  jCXCLO ,cxcpbo ,cxclbo , 

3  CLLGO,dLLJO,CLLO,NCA$ES,ISYHM, 

4  CBGR,CBGL,C6JR,CBJL,CBR,CBL,CPBMR,CPBML,CL2R,CL2L, 

5  CEGRO,CBGLO,CBJRO,CBJLO,CBr6,CBLO,CPBMR6,CPBMLO,CL2RO,CL2LO) 

COMPUTE  TOTAL  NONLINEAR  COEFFICIENTS  FOR  ALPHA  =  0 
380  CALL  TLOADX( AREA , CHORD , DELTA ,Y ,CMU ,CDGO ,CDMUO,CSO,CDIO,CLO .DUMB, 

1  CCDGO ,CCDJO ,CCSO ,CCDIO ,CDITZO ,DUMB ,ALFINO ,CCTO ,CCJ( 1  ) , 

2  DUMMY, CNI0,CCY0,XLEAD,TANLE,XMC,NROWS,ISYMM) 

COMPUTE  TOTAL  NONLINEAR  CROSS-PRODUCT  COEFFICIENTS 
IFINOALFA  .EQ.  0)  GO  TO  "+00 
390  CALL  TLOADX(AREA,CHOR0,DELTA,Y,CMU,CDGX,CDMUX,CSX,CDIX,CL,CL0, 

1  CCDGX,CCDJX,CCSX,CCDIX,CDIT2X,ALFINF,ALFIN0, DUMMY, CCJ( 1  ), 

2  DUMMY, CNIX,CCYX,XLEAD,TANLE,XMC,NR0WS,ISYNM) 


PRINT  THE  SECTIONAL  AND  TOTAL  COEFFICIENTS 

<>00   WRITE!  6,    410     )    M 

410  FORMAT!  iH  1,4 7X, 6 (4H*»»^*)/48X,18H*   COMPOSITE   CASE, 13, 3H   */ 
1  '+8X,6(4H****)  ) 

WRITE(6,  420  )  ( N,N=1 ,10  ) , ( FACT( N  )  ,N=1 ,10  ) 
420  FORMATllH  ,48X,24HFUNDAMENTAL  CASE  FACTORS/10X,9( 4X,2HAl ,11 ,1H  )  , 
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1      2X),3X,2HA( ,I2,1H)/10X,10F10.6/) 
WRITE! 6,  430  ) 
430  FORMAT!  IH  ,20X,29H LIFT   ,11H 

1  39H PITCHItJG   nOtlENT     ,  lOH 

2  20H    .  .  .    LIFT    CEtJTER    .../    "  ~ ' 

5  5HCLrVJ0,5X,3HCL0,4X,10H 

4  <+HCMT0,bX,3HCM0,4X,10H 

IFCNOALFA  .GT.  0)  HRITE(6,  '+'^0 
440  FORMAT! IH  , 

1      22X,4hCLGA,6X,5HCLKUA,5X,3HCLA,4X 


2X,7HSECTION,5X,1HY,8X,<+HCLGO,6X, 
*   ^    ,3X,4HCM30,6X,5HCMriU0,5X, 
,3X,6HXCP0/C,4X,6HXCL0/C) 


) 


,10H 


,3X,<+HCMGA, 


2      6X,EHCt^MUA,5X,'+HCr,TA,6X,3HCMA,4x,iOH 
5       '+X,6HXCLA/(i  ) 
DO  470  K  =  l.NROWS 

WRITE(6,  450  )  K ,Y( K  )  ,CLGO( K  )  ,CLMUO( K  )  ,CLOI K ) ,CMGO( K ) ,CMMUO( K ) , 
1  CMT0!K),CM0(K),XBCP!3(K),XBCL0!Kt 

450  FORMATdH  ,15  ,4X,4f10  . 6 ,  lOH    *      *         ,4F10.6,10H    *      *    ,2F10.6) 
IFINOALFA  .GT.  01  WRITE(6,  460  )  CLG( K  )  ,CLMU( K  )  ,CL( K  ) , 
1  CMG(K  KCMJIUIK  ),CMTIK),CM!K),XBCPIK  ),XBCLIK  ) 

460  FORMAT! IH  ,19X,3F10 . 6 ,10H    *  *    ,4F10.6,10H    *   *    ,2F10.6) 
470  CONTINUE 

WRITE! b,  480  )  CCLGO  ,CCLJ0 ,CCL0 ,CCMGO ,CCMJO ,CCMTO ,CCM0 ,CXCP0 ,CXCL0 
480  FORMAT!  IH  ,  9X,4!10H ),10H    *   *    ,4!  lOH ), 

1  lOH    *   *    ,2I10H )/13X,5HTOTAL,2X,3F10.6, 

2  lOH    *   »    ,4F10.6,10H   ! APEX  )   ,  2F10.6t 
IFINOALFA  .GT.  0)  WRITElb,  490  )  CCLGI  1  )  .liCLJ!  1)  ,CCLI  1)  , 

1  CCMG! 1  l,CCMJI 1),CCMTI 1),CCM( 1),CXCP! 1),CXCL11) 

490  FORMATdH  ,19X,3Fl0.6, 

1        lOH    *   *    ,4F10.62lOH   (APEX)   ,  2F10.6) 
WRITE! 6,  500  )  CMGMCO ,CMJMCO ,CMTMCO ,CMMCO ,CXCPBO .CXCLBO 
500  FORMAT! iH  ,49X, 

1        lOH    *   *    ,4F10.6.10H   (XMC)    ,  2F10.6) 

IFCNOALFA  .GT.  0)  WRITE! 6,  510  ) 
1  CMGMC! 1  )  ,CMJMC! 1  )  ,CMTMC! 1 ) ,CMMC( 1 ) ,CXCPB( 1 ) ,CXCLB( 1 ) 

510  FORMAT! IH  ,49X,10H    *   ^    ,4F10.6,l0H  IXHt)         ,  2Fl0.6) 

WRITE! 6,  5^0  ) 
520  FORMAT! 1H1,25X, 9! 4H ),15H  INOUCED  DRAG  .,9(4H )/ 

1  7X,7HScCTION,txaHY,7X,4HCDG0,7X2  5HCDMU0,6X,3HCS0,8X,SHCD0, 

2  8X,feKGAMi1A0,5X,6HALFIN0,5X,3HCT0,6X,3HCMU ) 
IFINOALFA  .GT.  0)  WRITE! 6,  530  ) 

530  FORMAT! IH  , 27X ,4HCDGX, 7X j5HCDMUX,6X,3HCSX ,8X j3HCDX/ 

1  28X ,5HCDGA2 , oX ,6HC0MUA2 ,5X ,4HCSA2 , 7X ,4HCDA2 , 7X , 6HGAMMA2 , 

2  5X,6HALFINA) 
DO  560  K  =  1,NR0HS 
WRITE! 6  J  ~  ■ 

1      CG 
540  FORMAT! 

IF!  NOALrM  .131.  u;  rir^iicioj  nov      i 

1  CDGX! K  )  jCDMUXI K  )  ,CSXI K  )  .CDIXI K  )  ,CDGI K  )  ,CDMU! K  )  ,CS( K  ) , 

2  CDI(K),!:GAM1K),ALFINF!K  ) 
550  FORMAT! IH  , ^4X,4F11 . 7/25X,6Fll . 7 ) 
560  CONTINUE 

WRITE! 6,  570  )  CCDGO ,CCDJO ,CCS0 ,CCDIO .CDITZO ,CCT0 ,CCJ! 1 ) 

570  FORMAT! IH  ,24X,8I11H )/18X ,5HT0TAL ,2X ,4F11 . 7,11X,3F11 . 7  ) 

IF! NO ALFA  .GT.  0)  WRITE! 6,  580  )  CCDGX, 
1    CCDJX,CCSX,CCDIX,CDITZX,CCDG! 1  i,CCDJ! 1  )  ,CCSI 11,CCDI! 1),CDITZ! 1) 
580  FORMATllH  , 24X ,4F11 . 7,11X,F11 . 7/25X,4Fll . 7, llX,Fll . 7  ) 

PRINT  A  TABLE  OF  ALL  TOTAL  COEFFICIENTS  FOR  ALPHA  =  0 , ALPHA, ALPHA**2 

WRITE! 6,  590  ) 
590  FORMAT!  IHI, 41X, 91  4H?'**i^)/42X,20H*   TOTAL  AERODYNAMIC, 

1  16H  COEFFICIENTS   */4^X ,  9! 4H**** »// 

2  42X,  7HALPHA=0,    8X,  5HALPHA,10X,  8HALPHA^*2  ) 
IF!NOALFA  .GT.  0)  GO  TO  630 

600  FORMAT! IH  ,2SX  ,A3 ,F15 . 7  ) 

WRITE(6,  600  )COEFFI  1  )  ,CCLG0 ,COEFF!  2),  CCLJO ,COEFF( 3  )  ,CCL0 , 


50  K  =  1,NR0HS 

;!6,  540  J  K,Y(K),CDGO!K),CDMU0(K),CSO(K),CDIO!K), 
CGAM0!K),ALFIN01K I.CTO!K ),CMU!K) 
\T(1H  ,  6X,I4  ,4X,Fl0.6,8Fll.7) 
DALFA  .GT.  0)  WRITE16,  550  ) 


610 
620 
630 


RETURN 

FORMAT! IH 
FORMAT! IH 
WRITE(6, 
WRITEI6, 
WRITE! 6, 
WRITE!6, 
WRITE! 6, 
WRITE! 6, 
WRITE! 6, 
WRITE! 6, 
WRITE!6, 
WRITE! 6, 
WRITE!6, 
WRITE! 6, 
WRITE(6, 
WRITE16, 
WRITE! 6, 
WRITE! 6, 
WRITE! 6, 
WRITE(6, 
WRITE! 6, 
WRITE! 6, 


COEFF!  4),CCDG0,COEFF!  5),  CCDJO ,COEFFI b ) ,CCS0 , 
COEFF!  7),CCDI0,COEFFI  8  I  ,CDITZO ,COEFF! 9 ) ,CCJ!  1 1 , 
COEFF!  10  ),CCr^G0,COEFFI  11  ),  CCMJO, COEFF!  12  ),CCMTO, 
COEFF!  13),  CCMO, COEFF!  14),  CXCPCCOFFF!  15  )  ,CXCLO  , 
COEFF! 16  ),CXCPB, COEFF! 17),  CXCLB, COEFF! 18),CMGMC6, 
COEFFI  19  ),CMJrCO, COEFF!  20  )  ,CMTHCO  , COEFF!  21),CMriC0, 
COEFF(22),  CLLGO, COEFF! 23  ),  CLLJO  , COEFF! 24  )  ,CLL0 , 
COEFF! 25),CNJ( 1), COEFF! 2b ),   CNIO, COEFF! 27),CCYD, 
C0EFF(28),  CBGRO, COEFF! 29),  CBGLO , COEFF! 30  )  ,CBJR6 , 
C0EFF!31),  CBJL0,COEFF!52  ),   CBRO , COEFF! 33  )  ,CBL0 , 
COEFFI  34  )  ,CPBtIR0  , COEFF!  36  )  ,CPBML0 


,25X,A8,3F15.6) 
25X,A8ilX,3F15.7) 

"   1  ),  CCLGO, CCLG! 1) 


610 
610 
610 
620 
620 
620 
620 
620 
620 
610 
610 
610 
610 
610 
610 
610 
610 
610 
610 
610 


2), 
3), 
4), 
5), 
6), 
7), 
8): 
9(, 


)COEFFl 
)COEFF! 
)COEFF! 
JCOEFfl 
)COEFr( 
)COEFFI 
)COEFFI 
)COEFFI 
)COEFFI 
)COEFF( 10  ) 
)COEFF! 11), 
)C0EFF(12), 
)C0EFF(13), 
)C0EFFI 14), 
)COEFF!  15), 
)COEFF!  16), 
)COEFF!  17), 
)COEFFI 18), 
)COEFFI 19), 
)COEFFI20), 


CCLJO, CCLJ! 1) 
CCLO  ,CCL!1) 
CCDG0,CCDGX,CCDG(1) 
CCDJO, CCDJX,CCDJI1) 
CCSO  ,CCSX  ,CCS!1) 
CCDIO,CCDIX,CCDII  1) 
CDITZO,CDITZX,CDITZ(  1) 
CCJI 1  ) 

CCMGO,CCMGI 1) 
CCMJO,CCMJ! 1) 
CCMTO,CCMT! 1) 
CCMO  ,CCM!1) 
CXCPO,CXCPl 1) 
CXCLO,CXCL( 1) 
CXCPB0,CXCPB(1) 
CXCLBO, CXCLB! 1) 
CMGMC 0, CMGMC! 1) 
CMJMCO,CMJMC! 1) 
CMTMC0,CMTMC(1) 
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WRITE(6, 

610 

)COEFE( 211 

WRITE( 6, 

610 

ICOEFF!  2C  ) 

HRITE(6, 

610 

)COEFF! 23 1 

KRITE16, 

610 

JCCEFF!  2"+  1 

WRITE(6, 

610 

)COEFF!  25) 

HRITEI6, 

610 

)COEFF! 26 ) 

WRITEl 6, 

610 

)COEFF! 27) 

HRITE(6, 

610 

)COEFF!  28) 

WRITE(6, 

610 

ICOEFF! 29 ) 

WRITE! 6, 

610 

)COEFF!30) 

WRITElb, 

610 

)CCEFFI31 ) 

WRITEfb, 

610 

ICOEFF! 32 ) 

WRITE(6, 

610 

ICOEFF! 35 ) 

WRITE! 6, 

610 

)C0EFF!3^) 

c 
c 

WRITE! 6, 

610 

)C0EFF!35) 

COMPUTE  AND 

PRINT  A  TABLE 

c 

WITH  ANGLE  ( 

DF  ATTACK 

CMMCO.CMMCI  1) 
CLLG0,CLLGI 1) 
CLLJO.CLLJI 1) 
CLL0,!^LLI  1) 
CNJ( 1  I 

CNI0,CNIX,CNII1) 
CCY0,CCYX,CCYI 1) 
CBGRO,   CBGR!1) 


CB3L0, 

CBJRO, 

CBJLO, 

CBRO, 

CBLO, 

CPBMftO, 

CPBHLO, 


CBGLI 1 ) 
CBJRI 1 ) 
CBJLI 1 ) 
CERI 1) 
CBL!  1) 
CPBMRIl) 
CPBf)L!l) 


OF  THE  VARIATION  OF  THE  TOTAL  COEFFICIENTS 

JK 

bW   CALL  TABLEICCL0,CCL!1),CMMC0,CMMC!  1),CLL0,CLLI  1 )  .CDITZCCDITZX, 

1  CDITZf  1  ),CCJ(1  ),CNI0,CNIX,!:NI!  1  ),CNJ1  1), 

2  CCY0,CCYX,CCY!1),M) 

RETURN 

END 

BLOCK  DATA 

CHARACTER*8  C0EFFI35) 

C0MM0N/L0AD6/C0EFF 


DATA  COEFF/ 


END 


CCLG' ,' 

CCS' ,' 

CCMJ ' , ■ 

CXCPB'  ,  ■ 

cctiric  ,  ' 

CNIMC  ,'* 

CBGR ' , • 

CBR' ,' 


CCLJ',' 
CCD" ,' 

CCMT ' , ' 
CXCLB' , ' 

CLLG' , ■ 
CCY'  , 

CBSL' ,' 
CBL' , ' 


**   CCL',' 
**  CDITZ'  ,  ''■ 
CCM ' , ' 
CCMGMC ' , ' 
CLLJ'  ,  ". 

CBJR' ,' 
CP;i3R'  ,' 


CCDG' , 

»   CCJ', 

CXCP' , 

CCMJMC ' , 

CLL'  , 

CBJL' , 
CPM3L'/ 


CCDJ', 

CCMG ' , 

CXCL' , 

CCMTMC ' , 

CNJ'  , 


SUBROUTINE  EXPLE I LCASE ,CPI ,CPI1 ,DEL ,XBB ,CPEXP  ) 

THIS  SUBROUTINE  COMPUTES  THE  CP  VALUE  OF  A  LEADING  EDGE  EVD 
AT  5  INTERMEDIATE  POINTS  ON  THE  ELEMENT 

DIMENSION  XBB15),CPEXPI5,10) 

10  DN  =  0.20 

DO  '♦O  N  =  1,5 
20  X  =  DN  *  N 

XBB!N)  =  X  *  DEL 
30  CPEXP!N,LCASE  )  =  0 . 666666*CPI*I 1 . 0/SQRT( X  )-X  )  +  CPI1*X 
<+0  CONTINUE 

RETURN 

END 

SUBROUTINE  EXPHK LCASE ,CPI ,CPI1 ,DEL ,BTA ,C ,XB ,XBB ,CPEXP ) 

THIS  SUBROUTINE  COMPUTES  THE  CP  VALUE  OF  THE  FORWARD  HALF  OF  A  HINGE 
EVD  AT  5  IfJTERMEDIATE  POINTS  ON  THE  ELEMENT 

DIMENSION  XBB!5),CPEXP(5,10) 

DN  =  0.20 

DO  30   N  =  1,5 
10  X  =  XB  -  DEL  +  (N-l)*DNs*DEL 

DX  =  X  -  XB 

XBBIN)    =   X 
20   CPEXP!N,LCASE1    =    -1 .  2732'^0*BTA/57.  295779^'!  ALOGt -C*DX  ) 
1  +    AL0G!C^DEL)*DX/DEL)    +!CPI    +    ICPI-CPID^DX/DEL) 

20   CONTINUE 

RETURN 

END 

SUBRO'JTINE  EXPH2!  LCASE  ,CPI  ,CPI1  ,DEL  ,BTA  ,C  ,XB  ,XBB  ,CPEXP  ) 

THIS  SUBROUTINE  COMPUTES  THE  CP  VALUE  OF  THE  REAR  HALF  OF  A  HINGE 
EVD  AT  5  INTERMEDIATE  POINTS  ON  THE  ELEMENT 

DIMENSION  XBBI51,CPEXP!5,10) 

DN  =  0.20 

DO  30   N  =  1,5 
10  DX  =  N^DN*DEL 

X  =  XB  +  DX 

XBB!N)    =    X 
20   CPEXPI  N, LCASE  )    =    -1 .  2752<iO«BT A/57.  295779*1  ALOG(  C*OX  ) 

1      -  AL0G1C*DEL)*DX/DEL)  +  (CPI  -  ICPI-CPI1)*DX/DEL) 
20  CONTINUE 

RETURN 

END 

SUBROUTINE  SLOADI ALPHA ,IJ ,NW,NJ , CHORD ,CMU ,THETA,THETAS,TST, 

1  XB,DEL,BETA,EPS,CP,CL,CLG,CLMU,CM,CMG,CMMU,CMT,XBCP,XBCL, 

2  CDI,CDMU,CDI3,CS,CT,NR0WS,IHINGE  ) 

THIS  SUBROUTINE  COMPUTES  THE  SPANWISE  VARIATION  OF  LIFT,  PITCHING 
MOMENT,  AND  INDUCED  DRAG  FOR  EITHER  A  FUNDAMENTAL  OR  A  COMPOSITE  CASE 

DIMENSION  IJI't0),NWI40),NJ!^0  ) 

DIMENSION  CHORD! 40  )  ,CMU! 40  )  ,THETAI 40  )  .THETASI 40  )  ,TSTI 40  ) 
DIMENSION  CP!600),XB!600  ), DEL! 600  ), BETA! bOO  ), EPS! 600) 
DIMENSION  CLG!  40  )  ,CLMU!  40  )  ,CLI  40  )  ,!:MGI  40  )  ,CMMUI  40  )  ,CMTI  40  )  .CM!  40  ) , 
1    XBCPI 40 ) ,XBCL! 40 ) ,CDG! 40  J ,CDMU! 40  )  ,CS! 40  )  ,CDI! 40  )  ,CT! 40  ) 

INTEGRATE  THE  CHORDWISE  PRESSURES  FOR  EACH  SPANWISE  SECTION 
10  I  =  0 

IFIIHINGE  .GT.  1)  IHINGE  =  1 
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DO  150  K  =  1,NR0WS 
C 

C   LEADING  EDGE  CONTRIBUTIONS 
1  =  1  +  1 
20  CLI  =  DEL(I)  *  (CP(I)  +  0.50*CP(I  +  in 
CLG(K  )  =  CLI 

CMG(K)  =  -DEL(I)»f^2  *  (  0  .  6666667*CP(I  )+CP(  I  +  l  ) )  /  3.00 
CDG(K)  =  CLI  *  EPS( I  1/57.295779 
30  CSIK)  =  0.1745529  *  DEL(I)  *  CP(I)**2 
C 

BCF  =0.00 
NWK  =  NW(K) 
DO  100  L  =  2,NWK 
1=1  +  1 
CPI  =  CPCI ) 

IF(  L  .EQ.  NWK)  GO  TO  <+0 
CPU  =  CP(I  +  1) 
GO  TO  50 
C   DEFINE  TRAILING  EDGE  CP  VALUE 
40  CPU  =  0.0 

IF((NJ(K)  .EQ.  0)  .OR.  (CMU(K)  .LT.  0.0001))  GO  TO  50 
UK  =  IJ(K) 
CPU  =  CP(IJK) 
C 
C   REGULAR  EVD  CONTRIBUTIONS 

50  CLI  =  0.50  *  DELd  I  *  (CPI+CPIl) 
CLG(K)  =  CLG(K)  +  CLI 

CMG(K)  =  CMGIKI  -  CLI*XB(I)  -  ( CPI  +  2 . 0*CPI1  )*DEL( I)**2/6 . 00 
60  CDG(K)  =  CDGIK)  +  CLI  *  EPS( I  )/57 . 295779 
BCF  =  BCF  +  BETA(I)  *  (l.O-XB(I)) 
C 
C   HINGE  CONTRIBUTIONS 

IFdHINGE  .EG).  0  )  GO  TO  100 
82  =  BETA(I+I) 
IF( L  .LT.  NWK)  GO  TO  70 
B2  =  0.00 
UK  =  IJ(K  ) 

IF(CHU(KI  .GT.  0.0001)  B2  =  BETA(IJK) 
70  IF(  lABSlBETA(I) )  . LT .  0. 0001  )  .AND .( ABS( B2  )  . LT .  0.0001))  GO  TO  100 
CLI  =  0.00 
CMI  =0.00 

DL  =  ALOG(DEL(I)  *  CHORD(K)) 
CON  =  0.6566198  *  DELd  I  /  57.295779 
IF( ABS(BETA(I  )  I  .LT.  0.0001  I  GO  TO  80 
CLI  =  CCN  *  BETA! I)  ^  (2.00  -  DL  ) 
CMI  =  BETA(I)  *  (0.50-DL/5.00) 
80  IF(ABSIB2)  . LT .  0.0001)  GO  TO  90 
CLI  =  CLI  +  CON  *  B2  *  (2.00  -  DL) 
CMI  =  CMI  +  2.00  *  B2  *  (0.7500  -  DL/3.00) 
90  CL6(K)  =  CLGIK  )  +  CLI 

CMG(K)  =  CMS(K)  -  CON  *  DELd)  *  CMI  -  CLI  *  XBd  ) 
CDG(K)  =  CDG(K)  +  CLI  *  EPSd  )/57. 295779 
100  CONTINUE 
C 
C   COMPUTE  THE  SECTIONAL  COEFFICIENTS 

110  CLMU(K)  =  CMUIK)  *   THETA( K  )/57 . 295779 

CL(K)  =  CLG(K)  +  CLMU(K  ) 
120  CMMU(K)  =  -CMU(K)  *  THETA( K )/57. 295779 

CMT(K)  =  CM'J(K)  *  (ALPHA+TST(K)-THETAS(K)+BCF)/57. 295779 
CM(K)  =  CMGIK)  +  CMMU(K)  +  CMT(K) 
XBCP(K)  =0.00 
XBCL(K)  =  0.00 
130  IF(CLG(K)  .NE.  0.00)  XBCP(K)  =  -CMG(K)  /  CLG(K) 

IF(CL(K)  .NE.  0.00)  XBCL(K)  =  -( CMGI K  )+CMMU( K  )  )  /  CL(K) 
140  CDMU(K)  =  CMU(K)  ^  ( THETAf K )/57 . 295779 )**2  /  2.00 
CDI(K)  =  CDGIK)  +  CDMUIK)  -  CS(K) 
CT(K  1  =  CMU(K)  -  CDKK) 
150  CCrJTINUE 
160  RETURN 

EriD 

subroutine  sloadx( cpa ,cp0 ,del ,eps ,cmu,th ,nw,nj ,ij , 
1        clgo,cdgx,(:dmux,csx,cdix,nrow$) 

c  this  subroutine  calculates  the  sectional  cross-product  values 
c  of  the  nonlinear  drag  coefficients 


C 


DIMENSION  CPA(600),CP0(600  1  ,DEL( 600  )  ,EPS( 600  ) 
DIMENSION  CMU(40  ),TH(40  KNWUo  I  ,NJ(  40  )  ,IJI  40  ) 
DIMENSION  CLGO( 40 ) ,CDGX( 40  )  ,CDMUX( 40  )  ,CSX( 40  )  ,CDIX( 40  ) 


1=0 

DO  70   K  =  l.NROWS 
C   LEADING  EDGE  EVD  CONTRIBUTION 
1  =  1  +  1 
10  CDGX(K)  =  DELd  )*(CPA(I  )  +  0.50*CPAd  +  l))*EPSd)/57. 295779 
20  CSX(K)  =  0.5490658  *  DELd)  *  (CPOd)  *  CPAd  ) ) 
NWK  =  NW(K) 
DO  50  L  =  2,NHK 
1=1  +  1 
30  CPU  =  CPAd  +  1) 
C   DEFINE  TRAILING  EDGE  CP  VALUE 
IF(L  .LT.  NWK)  GO  TO  40 
CPU  =  0.0 

IF((NJ(K)  .EQ.  0)  .OR.  (CMU(K)  .LT.  0.0001))  GO  TO  40 
UK  =  IJ(K) 
CPU  =  CPA(UK) 
C   REGULAR  EVD  CONTRIBUTION 

40  CDGX(K)  =  CDGXIK)  +  0  .50*DELd  )*(  CPAd  )+CPIl  )*EPS(I  )/57.  295779 
50  CONTINUE 
C 
C   COMPUTE  THE  REMAINING  SECTIONAL  COEFFICIENTS 
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CDGX(K)  ♦  CLGO(K  )/57. 295779 

:    CMU(K)    *   TH(K  1/57.295779**2 

CDGX(K)    +   CDnUX(K)    -   CSX(K) 


60   CDGX(K)    : 

CDt1UX(K  ) 

CDIXiKi    : 
70   COr^TItJUE 

RETURN 

END 

SUBROUTINE  SLOADG( CP ,DEL ,BETA,CHORD ,0 ,CMU,NJ ,IJ ,CLG,CGAM, 
1  NROWS,IHINGE ) 

THIS  SUBROUTINE  COMPUTES  THE  SPANHISE  VARIATION  OF  TOTAL  VORTICITY 
ON  THE  WING-JET  SYSTEM 

DIMENSION  CP( 600  )  ,DEL( 600  I  ,BETA( 600 ) 

DIMENSION  CHORD!  "+6  I  ,D(  <+0  I  ,CMUl  'tO  \  ,NJ(  ^0  )  ,IJ(  ^0  ) 

DIMENSION  CLGftOl.CGAMl^O) 


DO  60   K 


1,NR0WS 


« 


COMPUTE  THE  SECTIONAL  JET  VORTICITY,  INTEDRATED  FROM  T.E.  TO  INFINITY 
10  CGAMIKl  =0.00 

IF(CMU(K)  .LT.  0.0001)  GO  TO  50 

II  =  IJ(K) 
HINGE  EVD  CONTRIBUTION 

IFdHINGE  .EQ.  0)  GO  TO  20 

IFtBETA(II)  .NE.  0.001  CGAM(K1  =  0.6366198  *  DEL(II)  * 
1      BETAdI  )/57.  295779  *  (  2  .  00-ALOG(  CHORDI  K  )*DEL(II  )  )  ) 
REGULAR  EVD  CONTRIBUTION 
20  NJKl  =  NJ(K)  -  1 

II  =  II  -  1 

DO  'fO  L  =  1,NJK1 

II  =  II  +  1 
30  CGAM(K)  =  CGAM(K) 
^0  CONTINUE 
FAR-JET  EVD  CONTRIBUTION 

II  =  II  +  1 

CGAM(K)  =  CGAM(K)  + 


+  0.50  *  DEL(II)  »  (CP(II)+CP(II  +  1)  ) 


D(K  )  /  CHORD(K)  *  CP(II) 


SUM  UP  THE  WING  AND  JET  CONTRIBUTIONS 

50  CGAMIKl  =  0.50  *  CHORDlK)  *  ( CGAMI K  )+CLGl K  )  ) 

60  CONTItJUE 

RETURN 

END 

SUBROUTINE  TLOAD( ALPHA , AREA ,CREF,XMC .Y.DELTA ,C, HO ,XB ,XLEAD, BETA , 

1  CLG.CLMU.CMG.CMMU.CMT.CMU.CCLG.CCLJ.CCL.CCMG.CCMJ.CCMT.CCM, 

2  CMGMC,CMJMC,CMTMC.CMMC,CXCP,CXCL,CXCPB,CXCLB,CCJ,CLLG,CLLJ, 

3  CLL.ITYPE .IW.NW.NROHS.ISYMM, 

4  CBGR,CBGL,CBJR,CBJL,C&R,CBL,CPBMR,CPBML,CL2R,CL2L) 

THIS  SUBROUTINE  CALCULATES  ALL  OF  THE  TOTAL  LOADING  PARAMETERS 
FOR  A  FUNDAMENTAL  CASE 

DIMENSION  Y(  <+0  ), DELTA!  "iO  I  ,C(  <+0  1  ,H0(  -+0  )  .XLEADI  -40  )  ,IW(  '+0  )  ,NW(  40  ) 

DIMENSION  XB( b06),BETA(  606 ) .ITYPE  (  600 ) 

DIMEfJSIQN  CLG(  40  )  ,CLMU(  40  )  ,Ct1G(  40  )  ,CMMU(  40  )  ,CMTl  40  )  ,CMUt  40  ) 

INITIALIZE  THE  TOTAL  COEFFICIENTS 
10  CCLG  =0.00 

CCLJ  =0.00 

CCMG  =0.00 

CCMJ  =0.00 

CCMT  =0.00 

CXCP  =  0.00 

CXCL  =0.00 

CXCPB  =0.00 

CXCLB  =0.00 

CCJ 


CLLG 

CLLJ 

CLL 

CBGR 

CBGL 

CBJR 

CBJL 


0.00 
0.00 
0.00 
0.00 
0.00 
0.00 
0.00 
0.00 


CBR  =0.00 
CBL  =  0.00 
CL2R  =  0.00 
CL2L  =  0.00 
CPBMR  =0.00 
CPBML  =0.00 

INTEGRATE  THE  SECTIONAL  VALUES  OVER  THE  SPAN 

DO  100  K  =  l.NROWS 
20  CDEL  =  C(K  1  »  DELTA(K) 

IFdSYMM  .LT.  0)  GO  TO  80 

LIFT  COEFFICIENTS 

CCLG  =  CCLG  +  CDEL  *  CLGIK) 
30  CCLJ  =  CCLJ  +  CDEL  *  CLMU(K) 

PITCHING  MOMENT  COEFFICIENTS 

CCDEL  =  CDEL  *  C(K I 

XLB  =  XLEAD(K  )  /  C(K) 
COMPUTE  LEADING  EDGE  HEIGHT  ABOVE  WING  APEX 
40  I  =  IW(K)  -  1 

NWK  =  NW( K  ) 

XDS  =0.00 

DO  60  L  =  l.NWK 

1  =  1  +  1 

IFdTYPEd)  -  41)  60 
50  XDS  =  XDS 
60  CONTINUE 


50 


70 


+   XBd  )   *  BETAd)/57. 295779 
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70  HLB  =  HOIK)  -  XLB  *   ALPHA/57.295779 


+  CCDEL  *  (CMG(K  ) 

+  CCDEL  *  (CMMUIK  ) 

+  CCDEL  ^  (CMT(K  )  - 

+  CDEL  *   CMU(K) 


XDS 


CLG(K)*XLB) 

CLMU(K  )^XLB) 
Crrj(  K  )*HLB  ) 


CCMS  =  CCMG 

CCMJ  =  CCMJ 

CCMT  =  CCMT 

80  CCJ   =  CCJ 

ROLLING  MOMENT  COEFFICIENTS  AND  ROOT  BENDING  MOMENTS 

CDELY  =  CDEL  *  Y(K  t 
90  IFdSYMM  .EQ.  0)  GO  TO  95 
CLLG  =  CLLG  +  CDELY  *  CLG(K) 
-       -   ■  +  CDELY  *  CLMU(K) 
0.0  1  PO  TO  96 
+  CDEL  *   CLG(K) 
+  CDEL^  *  CLMU(K) 
+  CDEL  *  (CLG(K)+CLMU(K)) 


CLLJ  =  CLLJ 

95  IF(Y(K)  .LT 
CBGR  =  CBGR 
CBJR  =  CBJR 
CL2R  =  CL2R 
GO  TO  100 

96  CBGL  =  CBGL 
CBJL  =  CBJL 
CL2L  =  CL2L 

100  CONTINUE 


CDELY  *  CLG(K) 

CDELY  *  CLMU(K) 

CDEL  -^    (CLG(K)+CLMU(K)) 


COMPUTE  THE 
FACTOR  = 
IFdSYMM  .LT 
CCLG  =  FACTOR 
CCLJ  = 
CCL   = 
CCJ   = 
FACTOR 
CCMG  = 
CCMJ  = 
CCMT  = 
CCM   = 
IF( ISYMM 
IFICCLG 


110 


120 

150 


1^0 


150 


160 


IFtCCL 
CXCPB 

CXCLB  =  CXCL 
FACTOR  =  XI  :C 
IFdSYMM  .LT 
CMGMC  =  CCMG 
CMJMC  =  CCMJ 
CMTMC  =  CCMT 
CMMC   =  CMGMC 


FINAL  VALUES  OF  ALL  THE  TOTAL  COEFFICIENTS 
2.00  /  AREA 
"~   11  FACTOR  =  ^.00  /  AREA 

*  CCLG 
^  CCLJ 
CCLJ 

*  CCJ 
/  CREF 
CCMG 

*  CCMJ 

*  CCMT 
CCMJ  +  CCMT 
0  )  GO  TO  I'+O 

0.00  I  CXCP  =  -  CCMG  /  CCLG 


FACTOR 
CCLG  + 
FACTOR 
=  FACTOR 
FACTOR  * 
FACTOR  * 
FACTOR  * 
CCMG  + 

.LT. 

NE. 


NE.  0.00)  CXCL 

CXCP  *  CREF 

*    CREF 

/  CREF 

0  )  FACTOR  =  0.00 
+  CCLG  *  FACTOR 
+  CCLJ  *  FACTOR 
-  CCJ   ^  FACTOR  * 
+  CMJMC  +  CMTMC 


(CCMG+CCMJ)  /  CCL 


ALPHA/57.295779 


IFdSYMM  .EQ.  0)  GO  TO  160 

FACTOR  =  -1.00  /  AREA 

IFdSYMM  .LT.  0)  FACTOR  =  -2.00  /  AREA 

CLLG  =  FACTOR  *  CLLG 

CLLJ  =  FACTOR  *  CLLJ 


CLL   = 

CLLG  + 

CLLJ 

FACTOR 

=  <+.0  . 

/  AREA 

CBGR  = 

FACTOR 

^  CBGR 

CBJR  = 

FACTOR 

*  CBJR 

CL2R  = 

FACTOR 

*  CL2R 

IFdSYMM  .GT. 

0)  GO  TO 

170 

IFdSYMM  .LT. 

0  )  GO  TO 

180 

CBGL  = 

CBGR 

CBJL  = 

CBJR 

CL2L  = 

CL2R 

GO  TO 

l^O 

CBGL  = 

FACTOR 

*  CBGL 

CBJL  = 

FACTOR 

*  CBJL 

CL2L  = 

FACTOR 

*  CL2L 

GO  TO 

190 

CBGL  = 

-CBGR 

CBJL  = 

-CBJR 

CL2L  = 

-CL2R 

CBR  = 

CBGR  +  I 

CBJR 

CBL  = 

CBGL  +  1 

CBJL 

IFICL2R  .NE. 

0.0  )  CPBMR 

=  CBR/CL2R 

IF(CL2L  .NE. 

0.0)  CPBML 

=  CBL/CL2L 

170 


180 


190 


RETURN 

END 

SUBROUTINE  TLOADX( AREA ,CHORD,DELTA ,Y ,CMU.CDG ,CDMU,CS,CDI ,CL ,CL0 , 

1  CCDG,CCDJ.CCS,CC6l,CDlTZ,ALFINF,ALFIN0,CCT,CCJ, 

2  CNJ ,CNI ,CCY ,XLEAD ,TAMLE ,XMC ,NR0WS ,ISYMM  ) 

THIS  SUBROUTINE  CALCULATES  THE  NONLINEAR  TOTAL  LOADING  COEFFICIENTS 
FOR  ALPHA  =  0  BY  SPANHISE  INTEGRATION  OF  THE  NONLINEAR 
SECTIONAL  COEFFICIENTS 

DIMENSION  CHORD!  ^0  )  ,DELTA(  "+0  )  ,Y(  <iO  )  ,CMU(  40  )  ,XLEAD(  "tO  )  ,TANLE(  'iO  ) 
DIMENSION  CDG( 40  )  ,CDMU( 40  )  ,CS( 40 ) ,CDI( 40  )  ,CL( 40  )  ,CLO( 40  J 
DIMENSION  ALFINF(40),ALFIN0(40) 

INITIALIZE  THE  COEFFICIENTS 
10  CCDG  =  0.00 
CCDJ  =0.00 


CCS  = 
CDITZ 
CNJ  = 
CNI  = 
CCY  = 


00 

0.00 
,00 
.00 

00 


INTEGRATE  THE  SECTIONAL  VALUES  OVER  THE  SPAN 

DO  40   K  =  1,NR0WS 
20  CDEL  =  CHORD(K)  *   DELTA(K) 

CCDG  =  CCDG  +  CDEL  *   CDG(K) 

CCDJ  =  CCDJ  +  CDEL  *  CDMU(K) 
30  CCS  =  CCS  +  CDEL  *  CS(K) 

CDITZ  =  CDITZ  +  CDEL  *  ( CL( K  )*ALFIN0( K  )  +  CLOCK  )*ALFINF( K  ) ) 
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IFdSYMM  .LT.  1  )  GO  TO  40 

CNJ  =  CNJ  +  CDEL  *  Y(K1  *  CMU(K) 

CNI  =  CNI  +  CDEL  *    (Y(K)*CDI(K)  -  CS( K  )*TANLE( K  )»( XLEAD( K  )-XMC  ) ) 

CCY  =  CCY  +  CDEL  *   CSIK)  *  TANLE(K) 
40  CONTINUE 
COMPUTE  THE  FINAL  VALUES  OF  THE  TOTAL  COEFFICIENTS 

FACTOR  =  2.00  /  AREA 

IFdSfMM  .LT.  1)  FACTOR  =  4.00  /  AREA 
50  CCDG  =  FACTOR  »  CCDG 

CCDJ  =  FACTOR  *  CCDJ 

CCS  =  FACTOR  *  CCS 

CDIT2  =  FACTOR  *  CDITZ  /  2 . 00 

CCDI  =  CCDG  +  CCDJ  -  CCS 

CCT  =  CCJ  -  CCDI 
60  IFdSYUM  .LT.  1)  RETURN 

FACTOR  =  1.00  /  AREA 

CNJ  =  -FACTOR  *r   CNJ 

CNI  =  FACTOR  *  CNI 

CCY  =  FACTOR  *   CCY 
70  RETURN 

END 

SUBROUTINE  TLOADOC CREF ,CCLG,CCLJ,CCMG,CCMJ,CCMT,CMGMC ,CMJMC .CMTMC, 

1  CLLG ,CLLJ  ,FACT ,CCLG0 ,CCLJ0 ,CCL0 .CCMGO .CCMJO .CCMTO ,CCM0 , 

2  CMGMCO .CnJMCO ,CMTMCO ,Ct1MC0 ,cxcp6 ,CXCL0 .CXCPBO ,CXCLB0 , 

3  CLLG0,CLLJ0,CLL0,NCA$ES,ISYMM, 

4  CBGR.CBGL,CBJR>CBJL,CER,CBL,CPBMR,CPBML.CL2R,CL2L, 

5  CBGR6,CBGLO,CBJRO,CBJLO,CBRO,CBLO,CPBMR6,CPBMLO,CL2RO,CL2LO) 

THIS  SUBROUTINE  CALCULATES  THE  LINEAR  TOTAL  LOADING  COEFFICIENTS 
FOR  ALPHA  =  0.   LINEAR  QUANTITIES  ARE  MODULATED  AND  SUMMED 
ACCORDING  TO  THE  COMPOSITE  CASE  REQUIREMENTS. 

DIMENSION  CCLGI 10)  :CLJ( 10  )  ,CCMG( 10  )  ,CCMJ( 10  )  ,CCMT( 10 ) , 

1  CMGMC(  10UCMJMC(  lO  i,CMTMC(  lo  I  ,CLLG(  lo  ),CLLJ(  l0),FACT(10) 

DIMENSION  CBGRI 10),CBGL( 10  t,CBJRl 10  ),CBJL( 10  )  ,CBR(10  )  ,CBL( 10  ) , 

1  CPEMR( 101,CPBML( l6 J ,CL2RI 10 ) ,CL2L(10 ) 

INITIALIZE  THE  COEFFICIENTS 
10  CCLGO  =0.00 

CCLJO  =0.00 

CCMGO  =0.00 

CCMJO  =0.00 

CCMTO  =0.00 

CMGMCO  =0.00 

CMJMCO  =  0.00 

CMTMCO  =0.00 

CLLGO  =  0.00 

CLLJO  =  0.00 

CXCPO  =0.00 

CXCLO  =  0.00 

CXCPBO  =0.00 

CXCLBO  =0.00 

CEGRO  =0.00 

CBGLO  =0.00 

CBJRO  =0.00 

CBJLO  =  0.00 

CBRO  =  0.00 

CBLO  =  0.00 

CL2R0  =0.00 

CL2L0  =  0.00 

CPBMRO  =0.00 

CPBMLO  =0.00 


MODULATE  AND  SUM  THE  TOTAL  COEFFICIENTS 
DO  40  N  =  1,NCASES 

20  CCLGO  =  CCLGO  +  CCLG(N)  *  FACT(N) 
CCLJ(N)  *  FACT(N) 
CCMG(N)  *  FACTIN) 
CC.'^J(N  I  *  FACT(N  ) 
CCMTIN)    *    FACTIN  I 

CMGMC(N»    *    FACT(N) 
+    CMJMC(N)    *    FACT(N) 
CMTMC (N  I    *    FACT(N) 
CLLGIN)    *    FACTIN) 
CLLJIN)    *    FACTIN) 
CBGRI  N)    ¥■    FACTIN) 
CBGLINI    *    FACTIN) 
CBJRIN I 
CBJLIN) 
CL2RIN) 
CL2HN) 


FACTIN) 
FACTIN) 
FACTIN) 
FACTIN) 


CCLJO  =  CCLJO  + 
CCr'.SO  =  CCMGO 
CCMJO  =  CCMJO  + 
CCMTO  =  CCMTO 
30  CfiGi'CO  =  CMStlCO 
CMJMCO  =  CMJMCO 
CMTMCO  =  CMTMCO 
CLLGO  =  CLLGO 
CLLJO  =  CLLJO 
CBGRO  =  CBGRO 
CBGLO  =  CBGLO 
CBJRO  =  CBJRO 
CBJLO  =  CBJLO 
CL2R0  =  CL2R0 
CL2L0  =  CL2L0 
40  CONTINUE 

DEFINE  THE  REMAINING  TOTAL  COEFFICIENTS 
CCLO  =  CCLGO  +  CCLJO 

+  CCMJO  +  CCMTO 
+  CBJRO 
+  CBJLO 
0.0)  CPBMRO  =  CBRO  /  CL2R0 
0.0)  CPBMLO  =  CBLO  /  CL2L0 
0)  GO  TO  60 

0.00)  CXCPO  =  -  CCMGO  /  CCLGO 
0.00  1  CXCLO  =  -  (CCMGO+CCMJO)  /  CCLO 
CXCPBO  =  CXCPO  *  CREF 
CXCLBO  =  CXCLO  *  CREF 
60  CMMCO  =  CMGMCO 
CLLO  =  CLLGO  + 
70  RETURN 
END 

SUBROUTINE  TREFTZI Y , DELTA ,CMU, GAME, ALFINF ,NROWS, LIKE  ) 
DIMENSION  Yi40  l,DELTAI40  1  ,CMUl 40  )  ,GAM3I 40  )  .ALFINFI 40 ) 
DIMENSION  Ei40),BI40),C(40),DPl40),DMI40),DGAMI40) 


50  CCMO  =  CCMGO 
CBRO  =  CBGRO 
CBLO  =  CBGLO 
IFICL2R0  .NE. 
IFICL2L0 
IFIISYMM 
IFICCLGO  .NE, 
IFICCLO  .NE. 


.NE. 
LT. 


+  CMJMCO  +  CMTMCO 
CLLJO 
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LOGICAL  Zl  ,Z2  ,Z3  ,Z<^  ,Z5  ,Z6  ,ZT1  ,ZT2 
C 
C   FIND  COEFFICIENTS  OF  CURVES 

J  =  0 

DO  60  I=1,NR0WS 

Z1=I.E0.1 

Z2  =  LIKE.GT.0.AfJD.I.EQ.NROWS 

Z3  =  (  LIKE . LE . 0 . AND . I . EQ . NROWS ) . OR . ( LIKE . GT . 0 . AND . I . NE . NROWS . AND . 
1Y(I  ).GT.0.0.AND.Y(I  +  1  ) . LT . 0 . 0  ) 

Z'+=LIKE  .  GT  .  0  .  AND  .  I .  GT  .  1 .  AND  .  Y 1 1  1 .  LT  .  0  .  0  .  AND  .Vd-D.GT.O.O 

Z5= ( I . NE . NROMS  ) . AND . ( ( CMU (I). LT. 0.0001. AND . CKU ( I  + 1) . GT . 0 . 0 ) . OR . 
KCKUd  ).GT.O.O.AND.CMU(  I +1) .  LT  .  0  .  0001  I  ) 

Z6  =  l I.GT.l  ).AND.( (CMUil  I  .GT . 0 . 0 . AND .CMU( I-l ) . LT . 0 . 0001  )  .OR. 
KCMUd  l.LT.O.OOCl.AND.CMUd-D.GT.O.O)  ) 

D1=SQRT(  1.0-ABS(  Yd  )  )  ) 

ZT1=Z1.0R.Z'+.0R.Z6 

ZT2=Z2.CR.Z3.0R.Z5 

IFIJ.EQ.DGO   TO    10 

IF(ZT1)J=1 

IF(ZT1)G0  TO  "tO 

J  =  0 
10   CONTINUE 

IF(ZT2  )    GO   TO   30 

D2=SQRT(  1.0-ABS(Yd  +  l))) 

D3=SQRT(  l.O-ABS(Yd-l))  ) 

Gl=GAt1Bd  ) 

G2=GAMBd+l) 

G3=GA(lBd-l) 

D13=Dl**-3 

D23=D2*«3 

D33=D5*^3 

D15=D1**5 

D25=D2*^5 

035=03**5 

F1=D23^D55-D33*D25 

F2=D13^D35-D33*D15 

F3=D13*D2S-D23*D15 

Ed  )  =  (  G1*F1-G2*F2+G3*F3  )/(  D1*F1-D2*F2+D3*F3  ) 

Bd  )  =  (  (Gl-Ed  )*D1)^D25-IG2-Ed  )*D2  )*D15  )/(  D13*D2S-D23*D15 ) 

Cd)  =  (Gl-Ed  l^Dl-Bd)^D13)/D15 

IF( J.EQ.O  )    GO   TO   40 
20    Ed-l)  =  Ed  ) 

Bd-l)=Bd  ) 

Cd-l)=Cd  ) 

J=0 

GO  TO  40 
30   Ed  )=Ed-l) 

Bd  J=Bd-l) 

Cd  )=Cd-l) 
40   CONTINUE 

IF(  Yd  l.LT.0.0)    GO   TO   50 

DPI  I  )=SORT(  ABS(  DH'    2-DELTA(  I) ) ) 

DMd  )=SQRT(Dl*»^2+DLLTAd  )  ) 

GO  TO  60 
50  DPd  )=SrRT(Dl**2  +  DELTAd)  ) 

DM( I  )  =  SGRT1 D1**2-DELTA(  I ) ) 
60  CONTINUE 
C 
C  CALCULATE  STRENGTH  OF  DISCRETE  VORTICIES 

DO   80    1=1. NROWS 

I F  d . LT . NftOWS . AND . ( ( CMU( I). LT. 0.0001. AND . CMU(  I  + 1 1 . GT . 0 . 0 ) . OR . 
KCMUd  J.GT. 0.0. AND. CMUd  +  D.LT.O.COOD)  )    GO   TO    70 

DGAMd  )  =  0.0 

GO   TO   80 
70   DGAfK  I  )  =  (  Ed  +  1  )-Ed  )  )*DM(  I )  +  (  Bd  +  1  )-Bd  )  )*DMl  I  )*J*3  +  i  C(  I  +  l  )-C(I ) ) 

l^DMd  l^^5 
80   CONTINUE 
C 
C      CALCULATE    DOWNWASH 

DO    100    1=1, NROWS 

ALFINFd  1  =  6.0 

F2=SGRT(  1.0-Yd  )) 

F4=SQRT(  1.0+Yd  )  ) 

DO    90    J =1, NROWS 

IF(Y( Jt.LT .0.0 )    F2=F4 

corj=i.o 

IF( Y( J  l.LT.0.0)    C0N=-1.0 

F1=AL0G(  ABSl  I  (  DP(  J  )-F2  )*(  DM(  J  )  +  F2  )  )/(  (  DP(  J  )  +  F2  )»f  (  DMIJ  )-F2  )  )  ) ) 

S1=C0;)t:F1/F2 

S2=(2.0*(DP1 J1-DM( J))+F2*F11*C0N 

S3=C0N:i«(  2.0^*(DP(  J1^*3-Dt1l  J)**3  )/3  .  0  )  +  F2**2*S2 

DELG  =  -DGAM(  J)/(Yd  )-Y(  J  )+DELTA(  J  )  ) 

IF( LIKE.GT.O  I    GO   TO    90 

F3=AL0G( ABSl ( I  DPI  J  )-F4  )*( DtK  J )  +  F4 ) )/( ( DP( J )  +  F4 )*( DM( J )-F4 ) ) ) ) 

S2P  =  2 . 0*1  DPI  J )-DMI J  )  J  +  F4*F3 

IFI LIKE.LT.O)    SY=-1.0 

IFI  LIKE.EQ.O  )    SY  =  1.0 

S1=S1+SY*F3/F4 

S2=S2+SY*S2P 

S3=S3+SY*I I  2 . 0*( DPI  J )**3-DM( J )**3 )/3 . 0 )  +  F4**2*S2P ) 

DELG=DELG-SY*DGAMI J )/l -Yl I )-YIJ )+DELTAI J ) ) 
90  ALFINF  d  )=ALFINFd)+0. 1591549*1  0.5*EIJ)*S1  +  1.5*B(  J  )*S2  +  2.5*C(  J)* 
1S3+DELG) 
100  CONTINUE 

RETURN 

END 

SUBROUTINE  TABLE! CL0,CLA,CMO,CMA,CLLO,CLLA,CDIO,CDIX,CDIA2,CJ, 
1  CNI0,CNIX,CNIA2,CNJ,CY0,CYX,CYA2,MCASE ) 

C 

C   THIS  SUBROUTINE  COMPUTES  AND  PRINTS  A  TABLE  OF  TOTAL  COEFFICIENTS 
C   FOR  A  RANGE  OF  ANGLES  OF  ATTACK 
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COMPUTE  THE  COEFFICIEhJTS 

WRITE! 6,  10  I  MCASE 
10  FCRMATl  1H1,31X.1'^(^H***^1     /32X,27H*   TABULATED  TOTAL  COEFFICI, 

1  23HENTS  FOR  CCNPOSITE  CASE,  it,    5H  */    32X ,  1^( ^H*^**  )// 

2  <+X,5H4LPHA,10X.3HCCL,8X.6KCCL**2,5X,7HCCri(f1C  )  j'+X  ,5HCLL  ,13X, 

3  5HtDITZ,cX,3HCC;T,13X,3HCNI,8X,2HCN,9X,3HCCY) 
ALPHA  =  -11.00 

DO  60   M  =  Iji+l 
20  ALPHA  =  ALPHA  +  1.00 

ALPHAS  =  ALPHA  *  ALPHA 
LINEAR  COEFFICIENTS 
30  CL  =  CLO  +  CLA  *  ALPHA 

CL2  =  CL  *  CL 

CM  =  CMO  +  CMA  *  ALPHA 

CLL  =  CLLO  +  CLLA  *  ALPHA 
NONLINEAR  COEFFICIENTS 
^0  CDI  =  CDIO  +  CDIX  *  ALPHA  +  CDIA2  *  ALPHA2 

CT  =  CJ  -  CDI 

CNI  =  CNIO  +  CNIX  *  ALPHA  +  CNIA2  *  ALPHA2 

CN  =  CNJ  +  CNI 

CY  =  CYO  +  CYX  »  ALPHA  +  CYA2  *  ALPHA2 

PRINT  THE  TABLE 

WRITE(6.  50  »  ALPHA, CL,CL2, CM, CLL,CDI,CT, CNI. CN,CY 
50  FORMATllH  ,  F10.6,SH   *   ,4Fli.7,5H  *       ,2F11.7,5H   »   ,5F11.7) 
60  CONTINUE 

RETURN 

END 

SUBROUTINE  FUNDERf EPS,CPO,CPA ,CPR0 ,CPRA ,CPP,DEL ,CHORD, Y.DELTA ,CMU, 

1  AREA,CLQ,CMq,Ct1QMC,CLLP.CNP2,NW,IJ,NMAX,NJT,NEWMAX,N£ASES,N0ALFA, 

2  NROWS,ISYMH,XL,TL,XMC) 

THIS  SUBROUTINE  CONTROLS  CALCULATION  OF  ALL  AERODYNAMIC  COEFFICIENTS 
AND  STABILITY  DERIVATIVES  FOR  THE  FUNDAMENTAL  CASES 

C0MM0N/S0LV1/CP( 600 , 10  1 

DIMENSIOrJ  CFOl NEWMAX  i .CPA( NEWMAX  )  ,CPRO( 600  )  ,CPRA( 600  )  ,CPP( 600  J 

DIMErJSI0^4  DEL(6C0  ),EPS(  oOO.lO  1,EP(600  1 

DiriErJSION  CHORDl'+OKYl'^O  )  ,DELTA(  ^0  )  ,CMU(  40  )  ,XL(  ^0  ),TL(40) 

DIMENSION  NWCfO  ),IJ(<+0) 

FIND  THE  SPOT  WHERE  THE  SOLUTION  OF  THE  FIRST  RUN  MAS  STORED 

IREAD  =  NMAX  +  NJT 

IFUDGE  =  0 

CLLP  =  0.00 

CNP2  =0.00 

CNPO  =0.00 
CALCULATE  THE  CHORDWISE  LOADING 
10  CALL  STG3FClNEWriAX) 

DEFINE  THE  DUMMY  CP  ARRAYS  FOR  THE  ALPHA  CASE 
AND  THE  CP  ARRAY  FOR  THE 

DO  20  I  =  l.NEUMAX 

CPAd  )  =  0.0 

CPRAtI  )  =  0.0 

CPPII  )  =  CP(I,NCASES) 
20  CONTINUE 

DO  120  N  =  1,NCASES 

LCASE  =  N 

IREAD  =  IREAD  +  1 

FINDl I'IREAD) 

CALCULATE  THE  SPANWISE  AND  TOTAL  LOADING 
30  IF(N  .EQ.  NCASES  i 

1      CALL  STG3FS(DUM1,DUM2,DUM3, CLLP, NEWMAX.NOALFA, LCASE) 

READ  THE  FIRST  RUN  SOLUTION 
READ! I'IREAD)  CPO 

DEFINE  CP  AND  EP  ARRA'S  FOR  THE  PRESENT  SECOND  RUN  FUNDAMENTAL  CASE 

DO  ^0  I  =  i,nei;ma; 

CPROd  )  =  CPil, LCASE) 
EPd  )  =  EPSd, LCASE  ) 
40  CONTINUE 

CALCULATE  THE  STABILITY  DERIVATIVES 

CALL  SUMIT1ICPO,CPA,CPP,CPRO,CPRA,DEL,EP,CHORD,Y,DELTA,CMU,XL,TL, 

1  XMC .AREA jDUMl ,DUM2 ,CNP2 ,CLLRO ,DUM3 ,DUM5,DUM6 ,CYP2 , 

2  NN,IJ,NROWS.I$YMM,NEHMAX, IFUDGE  ) 
IF(N  .LT.  NCASES)  GO  TO  50 

CNPO  =  DUMl 
GO  TO  100 
50  CALL  SUMIT2 ( CPO, CPA,CPRO,CPRA,DEL,EP, CHORD, Y, DELTA, ARE A, CMU, XL, TL, 

1  XMC,CNR0,DUM1,DUM2,CNR20,DUM3,DUM'+,CYR0,DUM5,DUM6, 

2  CYR20,DUM7,DUM8,NW,IJ,NR0WS,ISYMM,NEWMAX) 

PRINT  THE  STABILITY  DERIVATIVE  DATA 

60  WRITE(6,  70  )  LCASE 

70  FORMAT!  1H1,32X,13('+H****),  3H^^**  /  33X, 

1  <t9H*      STABILITY  DERIVATIVE  DATA  FOR  FUNDAMENTAL  CASE,  13, 

2  3H   »  /  33X,13(^H****),  ZH^^*   /) 
WRITE(6,  80  )  CLLRO 

80  FORMAT! IHO/  25X ,  ^'^HROLLING  MOMENT  COEFFICIENT  DERIVATIVE  DUE  TO, 
1       15H  YAWirJG,  CLLR  =,  F12.7) 
WRITE! 6,  90  )  CNR0,CNR20 
90  FORMAT! 1H0/12X,^2HYAWING  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO, 

1  53H  YAWING  ABOUT  XCG,  CNI R  )  MAY  BE  CALCULATED  AS  FOLLOWS  // 

2  49X,    25HCNIRI    =   CNR»R    +    CNR2»R**2   // 

3  «+9X,  13HW!)ERE    CNR  =,F1h.9  /  56X,  6HCNR2  =,F12.7) 
WRITEI6,95)  CYR0,CYR20 


ROLLING  FUNDAMENTAL  CASE 
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95  FORMATdHO/  23X,43HSIDE  FORCE  COEFFICIENT  DUE  TO  YAWING,  CY(R), 

1  29H  MAY  BE  CALCULATED  AS  FOLLOWS// 

2  <+<)X,25HCY(  R  I  =  CYR^R  +  CYR2*R»*2// 

3  '+'?X,13HWHERE    CYR  =,F1^.9/  56X,6HCYR2  =,F12.7) 
GO  TO  120 

100  WRITE! 6,  70  )  LCASE 

WRITEi6»  110  )  CLLP  CMP2  CYP2 
110  FORHATiIhO/  28X,  38HRQLLiNG  MOMENT  COEFF  DERIVATIVE  DUE  TO, 

1  16H  ROLLING,  CLLP  =,  F12.7  /// 

2  17X,  '+2HrAWIN3  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO, 

3  ^^H    ROLLIMG,  CN( P  )  MAY  BE  CALCULATED  AS  FOLLOWS  // 
^        53X,  17HCNIP)  =  CNP2*P^*2  // 

5  53X,  13HWHERE   CNP2  =,F12.7/// 

6  30X,'^'^HSIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING,  CY(P), 

7  29H  MAY  BE  CALCULATED  AS  FOLLOWS// 

8  53X,17HCY(PI  =  CYP2*P**2// 

9  53X,13HWHERE   CYP2  =,F12.7) 
120  CONTINUE 

RETURN 

END 

SUBROUTINE  COMDER( EPS.CPO.CPA, CPRO.CPRA ,CPP ,CPREAD ,DEL , CHORD ,Y, 

1  CMU, DELTA, AREA, CLQ,CMQ,CMqMC, CLLP ,CNP2,NW,IJ,NMAX,NJT,NEWMAX, 

2  NCASES,NR0WS,ISYMR,XL,TL,XMC ) 

C   THIS  SUBROUTINE  CONTROLS  CALCULATION  OF  STABILITY  DERIVATIVES 

C   FOR  ALL  COMPOSITE  CASES 

C 

COMMON/SOLVI/CP(  600,10 ) 

COMMON/COMPOS/FACTORl 10 ,2^ ) ,NCC 

DIMENSION  CPO( NEWMAX  )  ,CPA( NEWMAX  )  ,CPRO( 600  )  ,CPRA( 600  )  ,CPP( 600 ) , 
1  CPREAD( NEWMAX) 

DIMENSION  DELI  600  )  ,EPS( 600,10 1 ,EP( 600 ) 

DIMENSION  CHORD ( <+0  )  ,Y(  -iO  )  ,DELTAl  <iO  )  ,CMU(  <+0  )  ,XLt  ^0  )  ,TL(  40  ) 

DIMENSION  NW140),IJ(40) 
C 
C   CYCLE  THROUGH  ALL  COMPOSITE  CASES 

IFUD6E  =  1 

DO  100  M  =  1,NCC 

MCASE  =  M 

NCI  =  NCASES  -  1 
C   FIND  THE  SPOT  WHERE  THE  SOLUTION  OF  THE  FIRST  RUN  WAS  STORED 

IREAD  =  NI1AX  +  NJT  +  1 

FINDd'IREAD  ) 
C 

C   DEFINE  CP  AND  EP  ARRAYS  FOR  THIS  SECOND  RUN  COMPOSITE  CASE 
C   NOTE  THAT  CPP  HAS  PREVIOUSLY  BEEN  DEFINED  IN  FUNDER 

DO  20  I  =  l,hlEWMAX 

CPROII  )  =  0.00 

EPd  )  =  0.00 

CPRAd  )  =  CPd.l) 

DO  10  N  =  l,NCl 

CPROd)  =  CPROd!  +  FACTOR(N,M)  *  CPd,N) 

EPd)  =  EPd)  +  FACT0R1N,M)  *  EPSd,N) 
10  COIyTIN'JE 
20  CONTINUE 
C 
C   DEFINE  CP  FOR  THE  FIRST  RUN  COMPOSITE  CASE 

IF(M  .EQ.  1)  READd 'IREAD)  CPA 

DO  30  I  =  l.NEKMAX 

CPOd)  =  O.OO 
30  CONTIt,'UE 

IREAD  =  IREAD  -  1 

DO  60  N  =  1,NC1 

IREAD  =  IREAD  +  1 

FIND! 1 'IREAD  ) 

IF( FACTOR! N,M)  .EQ.  0.0)  GO  TO  60 
40  READ! 1' IREAD  )  CPREAD 

DO  £0  I  =  1, NEWMAX 

CPOd  I  =  CP6d  )  +  FACTOR(N,M)  *  CPREADd  ) 
50  CONTINUE 
60  CONTINUE 
C   CALCULATE  THE  COMPOSITE  CASE  DERIVATIVES 

70  CALL  SUMITKCPO, CPA, CPP, CPRO,CPRA,DEL,EP, CHORD, Y, DELTA, CMU, XL, TL, 

1  XMC, AREA, CNP0,CNPA,CrJP2,CLLR0,CLLRA,CYP0,CYPA,CYP2, 

2  N;),IJ.NRO;(S,lSYMM,NEt!MAX,IFUDGE  ) 

80  CALL  SUMIT^lCP0,tPA,CFR0,CPRA,DEL.EP,CHORD,Y,DELTA,AREA,CMU,XL,TL, 
1  XMC,CNf?0,CNRA,CNRA^,CrjR50,CNR2A,CNR^A2,CYR0,CYRA,CYRA2, 
1  CYR20,CYR2A,CYR2A2,NW,IJ,NROWS,ISYMM, NEWMAX) 

C   PRINT  A  SUMMARY  TABLE  OF  ALL  STABILITY  DERIVATIVES 

90  CALL  ST ABLE (CLO,CMQ,CMQMC, CLLP, CNP0,CNPA,Cr!P2,CYP0,CYPA,CYP2, 
1     CLLRO ,CLLRA ,CNR0 ,CNRA,CNRA2 ,CNR20 ,CNR2A ,CNR2A^  , 
1     CYR0,CYRA,CYRA2,CYR20,CYR2A,CYR2A2, MCASE ) 
100  CONTINUE 
RETURN 
END 
SUBROUTINE  SUMITK CPO ,CPA, CPP ,CPRO,CPRA .DEL ,EPS, CHORD ,Y , DELTA, CMU, 

1  XL,TL,XMC,AREA,CNP0,CNPA,CNP2,CLLR0,CLLRA,CYP0,CYPA,CYP2, 

2  NW,IJ,NROWS,ISYMM, NEWMAX, IFUDGE  ) 
C 

C  THIS  SUBROUTINE  INTEGRATES  CP  CHORDWISE  AND  SPANWISE  TO  CALCULATE 

C   THE  TERMS  OF  CNP  AND  CLLR  DERIVATIVES 

C 

COMMON  /DERIV/  U0( 40 ) ,CLQ,CMQ,CMQMC 

DIMENSION  CPO( NEWMAX  )  ,CPAf  NEWMAX  J ,CPP( 600 ) ,CPRO( 600 ) ,CPRA(  600 ) 

DIMENSION  DELI  600  ),EPS( 600  1 

DIMENSION  CHORDI  ({O  ) ,  Yl  40  J  ,DELTA(  40  )  ,CMUt  40  }  ,XL(  40  J  ,TH  40  ) 

DIMENSION  NW140),IJ(40) 
C 

C   INITIALIZE  THE  DERIVATIVE  TERMS 
10  CNPO  =0.00 
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CNPA  =0.00 

CNP2  =  0.00 

CYPO  =  0.00 

CYPA  =0.00 

CYP2  =  0.00 

CLLRO  =  0.00 

CLLRA  =  0.00 
C 
C   INTEGRATE  THE  COEFFICIENT  TERMS  SPANWISE 

1=0 

DO  100  K  =  1,NR0WS 
C 

C   INTEGRATE  THE  COEFFICIENT  TERMS  CHORDWISE 
C   LEADING  EDGE  CONTRIBUTION 

1  =  1  +  1 
C   YAWING  DUE  TO  ROLLING 

20  TERMP  =  DEL(I)  *    (CPP(I)  +  0.50»CPP(I  +  in 

EP  =  -EPS(I)  /  (57.295779  *  UOIK)) 

DPO  =  TERMP  *  EP 

DPA  =  TERMP 

SPO  =  0.2'+90658  *  DELII)  *  CPPd  )  *  CPO(I) 

SPA  =  0.3'+90658  *  DELI  I)  *  CPPd)  *  CPAd  ) 

SP2  =  0.17'+5329  *  DELd  )  *  CPPd  )i^*2 
C   ROLLING  DUE  TO  YAWING 

30  CLGO  =  DELd)  *  (CPROd)  +  0 .50*CPR0d  +  l ) ) 

CLGA    =    DELd)    *    (CPRAd)    +    0 .  50*CPRAd  +  l )  ) 
C 

C   REGULAR  EVD  CONTRIBUTIONS 
^0  NUK  =  NW(K  ) 

DO  70   L  =  2,NUK 

1  =  1  +  1 

CPPl  =  CPPd  +  1) 

CPROl  =  CPROd+1) 

CPRAl  =  CPRAd  +  1) 

IF( L  .LT.  NWK)  GO  TO  50 

CPPl  =  0.00 

CPROl  =  0.00 

CPRAl  =  0.00 

IFICMU(KI  .LT.  0.0001)  GO  TO  50 

UK  =  IJ(K  ) 

CPPl  =  CPPdJK) 

CPROl  =  CPROdJK) 

CPRAl  =  CPRAdJK  ) 
50  EP  =  -EPSd  I  /  157.295779  »  UO(K)) 

TERMP  =  0.50  *  DELd  1  *  (CPPd)  +  CPPl) 

DPO  =  DPO  +  TERMP  *  EP 

DPA  =  DPA  +  TERMP 
60  CLGO  =  CLGO  +  0.50  *  DELd)  *  (CPROd)  +  CPROl) 

CLGA  =  CLGA  +  0.50  ^  DELd)  *  (CPRAd  )  +  CPRAl) 
70  CONTINUE 
C 
C   INTEGRATE  THE  COEFFICIENT  TERMS  SPANWISE 

FACTOR  =  CHORDIKI  *  Y(K)  *  DELTAIK) 

FACTO  =  CHORD(K)  if  DELTAIK)  *   THK) 

FACT  =  FACTO  *  (XLIK)-XMC) 
80  CNPO  =  CNPO  +  (DPO  -  SPO)  ^    FACTOR  -  SPO  *  FACT 

CtJPA    =   CNPA    +    (DPA/57. 2^5779    -   SPA)    *    FACTOR    -   SPA   *   FACT 

CNP2  =  CNP2  +  SP2  *  FACTOR  +  SP2  *  FACT 

CYPO  =  CYPO  +  SPO  *  FACTO 

CYPA  =  CYPA  +  SPA  *  FACTO 

CYP2  =  CYP2  +  SP2  *    FACTO 
90  CLLRO  =  CLLRO  +  CLGO  *  FACTOR 

CLLRA  =  CLLRA  +  CLGA  *  FACTOR 
100  CONTINUE 
C 
C   PUT  THE  TERMS  IN  FINAL  FORM 

FACTOR  =  1.00  /  AREA 

IFdSYMM  .LT.  0)  FACTOR  =  2.00  /  AREA 
110  CfJPO  =  FACTOR  *  CNPO 

CNPA  =  FACTOR  *  CNPA 

CNP2  =  -FACTOR  *  CNP2 

CLLRO  =  -FACTOR  ^   CLLRO 

CLLRA  =  -FACTOR  *:    CLLRA 

FACTOR  =  2.00  *  FACTOR 

CYPO  =  FACTOR  *  CYPO 

CYPA  =  FACTOR  *  CYPA 

CYP2  =  FACTOR  *  CYP2 

IFdFUDGE  .NE.  0)  GO  TO  115 

CNPO  =0.00 

CYPO  =  0.00 
115  IFdSYMM  .GE.  0)  GO  TO  120 

CNP2  =0.00 

CYP2  =  0.00 
120  RETURN 

END 

SUBROUTINE  SUMIT2( CPO ,CPA ,CPRO ,CPRA ,DEL ,EPS , CHORD ,Y,DELTA , AREA , 

1  CMU,XL,TL,XMC,CNR0,CNRA.CNRA2,CNR20,CNR2A,CNR2A2,(iYR0,CYRA, 

2  CYRA2  ,(:YR20  ,CYR2A  ,(:YR2A2  ,NW  ,IJ  ,NR0WS  ,ISYMM  ,NEWMAX  ) 

c 

C  THIS  SUBROUTINE  INTEGRATES  CP  CHORDWISE  AND  SPANWISE  TO  CALCULATE 
C  THE  TERMS  OF  THE  YAWING  AND  SIDE  FORCE  COEFFICIENTS  DUE  TO  YAWING 
C 

COMMON  /DERIV/  U0( ^0  )  ,CLQ,CMq,CMQMC 

DIMENSION  CPO( NEWMAX  )  ,CPA( NEWMAX  )  ,CPRO( 600 ) ,CPRA( 600 ) 

DIMErJSION    DELI  600  ),EPS(  600  ) 

DIMENSION  CHORD( ^0  )  ,Y( ^0  )  ,DELTA( ^0  )  ,CMU( ^0  )  ,XL( 40  )  ,TL( 40 ) 

DIMENSION  NW(40),IJ(40) 
C 

C   INITIALIZE  THE  YAWING  COEFFICIENT  TERMS 
10  CNRO  =0.00 

CNRA  =0.00 
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CNRA2  =0.00 
CNR20  =0.00 
CNR2A  =0.00 
CNR2A2  =  0.00 
CYRO  =  0.00 
CYRA  =  0.00 
CYRA2  =  0.00 
CYR20  =  0.00 
CYR2A  =  0.00 
CYR2A2  =0.00 
C 

1=0 

DO  100  K  =  1,NR0WS 

C   INTEGRATE  THE  COEFFICIENT  TERMS  CHORDWISE 
C   LEADING  EDGE  CONTRIBUTIONS 

1  =  1  +  1 
20  TERMO  =  DELd)  *    (CPRO(I)  +  0 .  SO*CPRO(  I  +  D) 

TERMA  =  DELd)  *  (CPRA(I)  +  0 .  50^CPRA(  I  +  l)  ) 

EP  =  -EPS(I)  /  (57.295779  *  UO(K)) 

DRO  =  TERMO  ^   EP 

DRA  =  TERt10/57. 295779  +  TERMA  *  EP 

DRA2  =  TERMA 
30  SRO  =  0.5'+'»0658  *  DELd)  ^  CPROd  )  *  CPOd) 

SRA  =  0.2'490658  *  DELd)  *  (  CPROd  )*CPAd  )  +  CPRAd  )*CPO(  I  )  ) 

SRA2  =  0.3'*90b58  *  DELd)  «  ( CPRAd  )*CPAd  ) ) 

IFdSYMM  .LT.  0)  GO  TO  <tO 

SR20  =  0.17'^5329  *  DELd)  *  CPROd  )**2 

SR2A  =  0.3^90658  *  DELd)  *  CPROd  )*CPRAd  ) 

SR2A2  =  0.1745329  *  DELd)  *  CPRAd  )^*2 
C 

C   REGULAR  EVD  CONTRIBUTIONS 
<*0  NWK  =  NW(K) 

DO  70   L  =  2, NWK 

1  =  1  +  1 

CPROl  =  CPROd  +  1) 

CPRAl  =  CPRAd  +  1  ) 

IF( L  .LT.  NWK)  GO  TO  50 

CPROl  =  0.00 

CPRAl  =  0.00 

IF(CMU(K)  .LT.  0.0001)  GO  TO  50 

UK  =  IJ(K  ) 

CPROl  =  CPROdJK) 

CPRAl  =  CPRAl  UK) 
50  EP  =  -EPSd  )  /  (57.295779  *  UO(K)) 
C   REGULAR  EVD  CONTRIBUTIONS 

TERMO  =  0.50  *  DELd)  *  ( CPROd  )+CPR01 ) 
60  TERMA  =  0.50  *  DELd)  ^    ( CPRAII  )+CPRAl  ) 

DRO  =  DRO  +  TERi;0  *  EP 

DRA  =  DRA  +  TERMO/57. 295779  +  TERMA  *  EP 

DRA2  =  DRA2  +  TERHA 
70  CONTINnjE 
C 
C   INTEGRATE  THE  COEFFICIENT  TERMS  SPANWISE 

FACTOR  =  CHOR0(Kl  *  Y(K)  *  DELTA! K  I 

FACTO  =  CHORD(KI  ^^  TL(K)  *  DELTA(K) 

FACT  =  FACTO  *  (XL(K)-XMC) 
80  Cr^RO  =  CNRO  +  (DRO-SRO)  *  FACTOR  -  SRO  *    FACT 

CNRA  =  Cr.'RA  +  (DRA-SRA)  *  FACTOR  -  SRA  *  FACT 

CNRA2  =  CNRA2  +  ( DRA2/57 . 295779-SRA2  )  *  FACTOR  -  SRA2  *  FACT 

CYRO  =  CYRO  +  SRO  *  FACTO 

CYRA  =  CYRA  +  SRA  *  FACTO 

CYRA2  =  CYRA2  +  SRA2  *  FACTO 

IFdSYMM  .LT.  0)  GO  TO  100 
90  CNR20  =  CNR20  -  SR20  *  FACTOR  -SR20  *  FACT 

CNR2A  =  CNR2A  -  SR2A  *  FACTOR  -  SR2A  *  FACT 

CNR2A2  =  CNR2A2  -  SR2A2  *    FACTOR  -  SR2A2  *    FACT 

CYR20  =  CYR20  +' SR20  *  FACTO 

CYR2A  =  CYR2A  +  SR2A  *  FACTO 

CYR2A2  =  CYR2A2  +  SR2A2  *    FACTO 
100  CONTINUE 
C 
C   PUT  THE  TERMS  IN  FINAL  FORM 

FACTOR  =  1.00  /  AREA 

IFdSYMM  .LT.  0)  FACTOR  =  2.00  /  AREA 
110  CNRO  =  FACTOR  *  CNRO 

CNRA  =  FACTOR  *  CNRA 

CNRA2  =  FACTOR  *  CNRA2 

CNR20  =  FACTOR  *  CNR20 

CNR2A  =  FACTOR  *  CNR2A 

CNR2A2  =  FACTOR  *  CNR2A2 

FACTOR  =  2.00  *    FACTOR 

CYRO  =  FACTOR  *  CYRO 

CYRA  =  FACTOR  *  CYRA 

CYRA2  =  FACTOR  *  CYRA2 

CYR20  =  FACTOR  *  CYR20 

CYR2A  =  FACTOR  *  CYR2A 

CYR2A2  =  FACTOR  »  CYR2A2 
120  RETURN 

END 

SUBROUTINE  STABLE ( CLQ,CMQ,CMQMC ,CLLP,CNP0, CNPA,CNP2,CYP0 ,CYPA, 

1  CYP2 ,CLLR0 ,CLLRA ,CNRO  >CNRA ,CNRA2 ,CNR20 ,CNR2A ,CNR2A2 , 

2  CYRO, CYRA, CYRA2,CYR20,CYR2A,CYR2A2,MCASE  ) 
C 

C  THIS  SUBROUTINE  CALCULATES  AND  PRINTS  A  COMPLETE  SUMMARY  TABLE 

C   OF  ALL  STABILITY  DERIVATIVE  DATA  FOR  EACH  COMPOSITE  CASE 

C 

COMMON/COMPOS/FACTOR  (  10  ,  2<+  )  ,NCC 
C 
C   PRINT  ALL  CONSTANT  DERIVATIVES 

WRITE(6,  10  )  MCASE 
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10  FORMAT(lHl,33X,15(^Hi^***),lH*  /   3<fX, 

1  ^7H*   STABILITY  DERIVATIVE  DATA  FOR  COMPOSITE  CASE,  15, 

2  ZH      */  3^X,13i<+H>:*^*  ),1H*  /I 

WRITE! 6,  20  )  ltJ,N  =  D.10l,  ( FACTORI N ,MCASE  1  ,N=1 ,10 ) 
20  F0RMAT(1H  ,'+8X  •  24HI-UNDAt1ENTAL  CASE  FACTORS/  lOX,  9(  <+X  ,2HA(  ,11 ,1H  ) , 
1      2X),3X,2HAi  ,I2,1H  )  /  10X,10F10.6I 

WRITE! 6,  20  )  CLQjCKQ ,CMQMC 
30  FORMATllHO/  26X,'+iHLlFT  COEFFICIENT  DERIVATIVE  DUE  TO  PITCHING, 

1  17H  ABOUT  XCG,  CLQ  =,F10.6  / 

2  1^X,51HPITCHING  MO:iENT  COEFFICIENT  DERIVATIVE  ABOUT  ORIGIN, 

3  23H  DUE  TO  PITCHING  ABOUT  XCG,  CMQ  =,F10.6  / 

4  lfeX,'*2HPITCKING  (lO.MENT  COEFF  DERIVATIVE  ABOUT  XMC , 

5  35H    DUE    TO    PITCHIt^;G    ABOUT    XCG,    CMQMC    =,    FIG.  6) 
WRITE!  6,    "+0     )    CLLP,CNP0,CNPA,CNP2 

'+0  FORMAT! 1HO/28X,58HROLLING  MOMENT  COEFF  DERIVATIVE  DUE  TO, 

1  16H  ROLLING,  CLLP  =,F12.7  /// 

2  17X,51HYAHING  KOIIENT  COEFFICIENT  ABOUT  XMC  DUE  TO  ROLLING,, 

3  35H  CNIPI  MAY  BE  CALCULATED  AS  FOLLOWS  / 
^                  ^8X,25HCNIP)  =  CNP>rP  +  CrJP2*P**2  / 

5  <+2X,31HWHERE    CNP  =  CNPO  +  CNPA*ALPHA  / 

6  52X.  6HCNP0  =,F12.7/52X,  6HCNPA  = ,F12 . 7/52X ,6HCNP2  =,F12.7) 
WRITE! 6,45)  CYP0,CYPA,CYP2 

45  FORMAT! 1H0/26X,44HSIDE  FORCE  COEFFICIENT  DUE  TO  ROLLING,  CYIP), 

1  29H  MAY  BE  CALCULATED  AS  FOLLOWS/ 

2  48X,25HCYIP)    =    CYP*P    +    CYP2*P**2/ 

3  42X,31HWHERE    CYP  =  CYPO  +  CYPA*ALPHA/ 

<»       52X.  6HCYP0  =,F12.7/52X,6HCYPA  = ,F12 . 7/52X,6HCYP2  =,F12.7) 
WRITE!  6,  50  )  CLLRO,liLLRA 
50  FORMAT! iH0/15X,38HR6LLING  MOMENT  COEFF  DERIVATIVE  DUE  TO, 

1  52H  YAWING  ABOUT  XCG,  CLLR  MAY  BE  CALCULATED  AS  FOLLOWS  / 

2  '+8X,26HCLLR  =  CLLRO  +  CLLRA^ALPHA  / 

3  46X.15HHHERE    CLLRO  =,F15.7  /  56X,7HCLLRA  =,F13.7) 
WRITE! 6,  60  )  CNR0,CNRA,CfJRA2,CHR20,CNR2A,CNR2A2 

60  FORMAT! lH0/12X,42HYAHIt<G  MOMENT  COEFFICIENT  ABOUT  XMC  DUE  TO, 

1  53H  YAWING  ABOUT  XCG,  CNl R  I  MAY  BE  CALCULATED  AS  FOLLOWS  / 

2  '+8X,2SHC(J(R  )  =  CNR^rR  +  CNR2*R**2  / 

3  36X,'4SH1;HERE    CNR  =  CNRO  +  CNRA*ALPHA  +  CNRA2*ALPHA**2  / 

4  52X,6HCNR0  = ,F13 . 7/52X ,6HCNRA  =  ,F13 . 7/51X,7HCNRA2  =,F13.7/ 

5  36X,5iHAi;D  CNR2    =    CNR^O    +    CNR2A*ALPHA    +    lfNR2A2*ALPHA«r:2/ 

6  51X,7HCra20    =,F13.7/51X,7HCNR2A    = , F13 . 7/50X ,8HCNR2A2    =,F13.7) 
WRITE! 6,65  I    CYR0,CYRA,CYRA^,CYR20,CYR2A,CYR2A2 

65  FORMAT! 1H0/1SX,39HSIDE  FORCE  COEFFICIENT  ABOUT  XMC  DUE  TO, 

1  53H  YAWIN'G  ABOUT  XCG,  CYI  R  )  HAY  BE  CALCULATED  AS  FOLLOWS  / 

2  48X,2SHCYlRi    =    CYR-' R    +    CYR2)^R**2    / 

3  36X,'+8HWHERE         CYR    =    CYRO    +    CYRA*ALPHA    +    CYRA2*ALPHA**2    / 
<+  52X,6HCYR0    =.F13.7/52X,6HCYRA    =  ,F13 . 7/51X,7HCYRA2    =,F13.7/ 

5  36X,SiHAND  t^RZ    =    CYR^O    +   CYR2A*ALPHA    +   lfYR2A2i(ALPHA**2/ 

6  51X,7HCYR20  = ,F13 . 7/51X, 7HCYR2A  = ,F13 . 7/50X,8HCYR2A2  =,F13.7) 

C   PRINT  TABLE  OF  DERIVATIVE  TERMS  WHICH  DEPEND  ON  ALPHA 
WRITE! 6,  70  I 
70  FORMAT!  IHI  ,32X  jSH*'?^*^  ,10!  5H*****  ) ,/, 

1  33X,53H*  VARIATION  OF  STABILITY  TERMS  WITH  ANGLE  OF  ATTACK  *,/, 

2  33X,3H**^,10!5H>;^**^  ),//, 

3  <?X,£HALPHA,12X,3HCNP,l0X,'+HCNP2,l<+X,3HCYP,10X,4HCYP2, 
<+    1<+X,4HCLLR,    9X,3HCNR,10X,4HCNR2  ) 

ALPHA  =  -11.00 
DO  120  M  =   i,m 
80  ALPHA  =  ALPHA  +  1.00 

CNP  =  CNPO  +  CNPA  *  ALPHA 
CYP  =  CYPO  +  CYPA  *  ALPHA 
90  CLLR  =  CLLRO  +  CLLRA  *  ALPHA 

CNR  =  CNr;G  +  CNRA  ^  ALPHA  +  CNRA2  *  ALPHA*»2 
100  CNR2  =  CtJR20  +  CNR2A  *  ALPHA  +  CNR2A2  *  ALPHA**2 

WRITE! 6,  110  )  ALPHA, CrjP,CNP2, CYP, CYP2, CLLR, CNR, CNR2 
110  FORMAT! IH  ,  5X,F10.6,SH  *      ,^F13.7,5H   *   ,2F13.7,5H   *   , 

1  SF13.7) 

120  CONTINUE 
RETURN 
END 

SUBROUTINE  STAGED 
C 

C   THIS  PROGRAM  CONTROLS  THE  EXECUTION  OF  UTILITY  ROUTINES  AND 
C   BOUNDARY  CONDITION  SETUP  FOR  STABILITY  DERIVATIVE  RUNS 
C 

COMMON/MATHEH/rJCASES ,ISYMM,IPRINT , JETFLG.IGTYPE .IHINGE 
COM;10N/MARK/NROHS  ,NRCNSJ  ,NWT  ,NJT  ,NriiX  ,NW(  40  )  ,NJI  40  )  ,IW!  40  )  ,IJ1  40  ) 
COMMON/JOHN/  ARE  A  ,SPAr^  ARATIO  ,TR  ,SW£EP  ,CRE  F  ,!iMAC  ,CBAR  ,XMC  ,XCG 
COMHOrJ/SPIRIT/  NEt;MAX,NEHCMU,NOALFA, LOGIC, IR 

COMMON/GEOMl/Y! 40  ) , CHORD! 40  t, DELTA! 40 ) ,XBI 600 ) ,XI1 600 ) ,DEL(  600 ) , 
1  D!40KKKI600  ),ITYPE(600) 

C0MM0N/FCASE2/TSTI 40 ,10  )  ,HLI 40 , 10  )  ,DJ! 40  )  ,ACTEI 40  )  ,AC( 20 ,40  ) , 
1  XHB!  4, 40), BET  I  4,40  ),IFS!4,40  )  ,ICTI  40  )  ,IHT!  40  ),NliT,NHT 

COMMON/FCASE3/EPS!600,10),BETA1600,10),THETA140,10),THS(40,10) 
COMMOr^/SOLVl/CP !  600,10) 
DIMENSION  CPREADI600) 
C 

C   ADD  THE  EXTRA  FUNDAMENTAL  CASE  FOR  DERIVATIVES  DUE  TO  PITCHING 
IF! LOGIC  .GT.  1 )  GO  TO  60 
10  IF!NCASES  . LT .  10 )  GO  TO  30 

WRITE! 6,  20  ) 
20  FORMAT! 1H0//14X,44HFUNDAMENTAL  CASE  10  HAS  BEEN  REPLACED  BY  THE, 
1       47H  FOLLOWING  CASE  FOR  DERIVATIVES  DUE  TO  PITCHING) 
GO  TO  40 
30  NCASES  =  NCASES  +  1 
40  CALL  BCPICH! XCG, CREF, XI, DEL, EPS, BETA, CHORD, KK,THETA,THS,TST,HL, 

1     hJVH.IW,NJ,IJ,NWT,NMAX,NROWS, NCASES) 
50  CALL  0UT21 NCASES) 
GO  TO  100 
C 
C   SAVE  THE  FIRST  RUN  SOLUTION  ON  UNIT  1 
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60  ISI2E  =  NEWMAX 

CALL  SAVECP(  CP ,CPREAD ,NMAX,NJT ,ISIZE ,NCASES  ) 
C 

C   DEFINE  THE  FUNDAMENTAL  CASES  FOR  YAWING  DERIVATIVES 
NCI  =  NCASES  -  1 
70  CALL  BCYAH(  EPS, BETA, THETA,THS,Y,KK,NWT,NMAX,NR0WS,NC1) 
C   DEFINE  THE  LAST  FUNDAMENTAL  CASE  FOR  ROLLING  DERIVATIVES 

80  CALL  BCROLL( EPS, BETA, THETA,THS,TST,Y,NW,NWT,NMAX,NROWS, NCASES) 
C 

C   PRINT  THE  FUNDAMENTAL  CASE  GEOMETRY 
IFdPRItJT  .GE.  0  1  GO  TO  100 
DO  ^0      N  =  1, NCASES 
LCASE  =  N 
CALL  0UT2( LCASE  ) 
90  CONTINUE 
100  RETURN 

ErJD 

SUBROUTINE  0UT2( LCASE) 

C 

C   THIS  SUBROUTINE  PRINTS  OUT  THE  GEOMETRIC  DATA  DERIVED  FROM  THE 

C   SECTIONAL  METHOD  INPUT 

C 

C0MMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/MARK/NROWS .NRuWSJ ,NNT ,NJT ,NMAX,NW( 40  )  ,NJ( -iO  )  ,IW( 40  )  ,IJ( 40  ) 
COMMON  /LUKE/  TITLE(20) 

COMMON/JOHN/  AREA , SPAN, ARATIO,TR, SWEEP ,CREF,CMAC,CBAR .XMC.XCG 
C0MM0N/GE0M1/Y( 40  )  ,CHORD( 40  )  ,DELTA( 40  )  ,XB( 600  )  ,XI( 600  )  ,DEL( 600  ) , 
1  D(40),KK(600),ITYPE(600) 

C0MM0N/GE0M2/XLEAD( 40 ) ,XTRAIL( 40  )  ,TANLE( 40  )  ,TANTE( 40  ) 
C0M{10N/FCASE2/TST( 40,10 ) ,HL( 40 ,10  )  ,DJ( 40 ) .ACTEI 40 ) ,AC( 20 ,40 ) , 
1  XHB(4,46 ), BET  (4, 46 ) .IFS( 4,40 ) ,ICT( 40  )  ,IHT( 40  )  ,NCT ,NHT 

C0MM0N/FCASE5/EPS( 600 ,10  )  ,BETA( 600 ,10  )  ,THETA( 40 ,10  )  ,THS( 40 , 10  I 
COMMON/INDAT A/ARE, SPA, CRE,XM,CMA,XC,NRO,NC,ISY,IPR, JET, IGT,IHI 

C 

C   PRINT  CASE  TITLE  AND  GENERAL  GEOMETRIC  PARAMETERS 
IF( LCASE  .GT.  1)  GO  TO  60 
10  WRITEI 6,  20  )TITLE 
20  FORMAT( 1H1,59X,10{4H****)/ 

1  40X,40H*   EVD   JET  -  WING   COMPUTER   PROGRAM  ii/ 

2  40X,10(4H****)///20X,20A4) 
CMA  =  CMAC  *  SPA  /  2.0 

30  WRITE(6,  40  )  AREA , ARE , SPAN, SPA ,CREF ,CRE ,XMC ,XM, CMAC , CMA ,ARATIO, 

1  ARATIO.XCG.XC 

40  FORMATt 1H0//54X,4HUSED,11X,5HINPUT  / 

1  41X,6HAREA  =,2F15.6  /  41X,6HSPAN  =.2F15.6  / 

2  41X,6HCREF  =,2F15.6  /  42X,5HXMC  =,^F15.6  / 

3  41X,6HCMAC  =,2F15.6  /  39X,8HARATI0  =,2F15.6  / 

4  42X,5HXCG  =,2F1S.6  ) 

WRITE(6,  50  )  NRO!iS,NRO,NCASES,NC,ISYMM,ISY,IPRINT,IPR,JETFLG,JET, 
1  IGTYP£,IGT,IHINGE,IHI,NWT,NJT,NMAX 

50  FORMATdHO/  48X,7HNR0WS  =,I5,7X,I3  /  47X,8HN'CA£ES  =,I3,7X,I3  / 

1  48X,7HISYMM  =,I3,7X,I3  /  47X,8HIPRINT  =,I3,7X,I3  / 

2  47X,8HJETFLG  =,I3,7X,I3  /  47X,8HIGTYPE  =,I3,7X,I3  / 

3  47X,8HIHINQE  =,I3,7X,I3  /// 

4  43X,25;-irJU;;BER  of  WINS  ELEMENTS  =,I4  / 

5  43X,2£Hf;UrBER  OF  JET  ELEMENTS   =,I4  / 

6  42X,26HT0TAL  NUMBER  OF  ELEMENTS  =,I4) 
60  J  =  0 

JJ  =  NWT 
C 
C   PRINT  FUNDAMENTAL  CASE  HEADER 

WRITE(6,  70  )  LCASE 
70  FORMATI IHI , 23X, IH* ,19( 4H****  )/ 

1  24X,S4H^   ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR, 

2  17H  FUNDAMENTAL  CASE, 13, 3H   */24X,lH*,19(  4H*Je**  )  ) 
ILINES  =  3 

DO  260  K  =  1,NR0WS 
C 
C   PRINT  SECTIONAL  DATA 

WRITE(6,  80  )  K,Y(K),DELTA(K),XLEAD(K),XTRAIL(K),CHORD(K),TANLE(K) 
80  FORMATI  lHO,llH't**  SECTION, 13  ,4H  ^?f*,2X,3HY  =  ,F10  .  6  ,2X  ,  7HDELTA  =, 

1  F10.6,2X,7HXLEAD  = ,F10 . 6 ,2X,8HXTRAIL  = ,F10 . 6,2X,7HCHORD  =,F10.b, 

2  2X,7HTANLE  =,F10.6) 
C 

C   PRINT  CHORDWISE  DATA  ON  WING 

NWK  =  NW(K  I 

WRITEI6,  90  )  NKK,TST(K, LCASE  ),HL(K, LCASE  ),THS(K, LCASE  ) 
90  FORMAT (1H0,21HWING  ELEMENTS    NH  =,I3,SX,  7HTWIST  =,F10.6,5X, 
1  4HHL  =,F10.6,5X,  9HTHETA  S  =,F10.6) 

WRITE(6,  100  )  (XB( J+L),L=1,NWK) 
100  FORMAKlH  ,14X,2HXB,   lOFll .  6/17X,10Fll .  6  ) 

IF( LCASE  .GT.  1)  GO  TO  130 

WRITE(6,  110  )  (XI( J+L),L=1,NWK) 
110  FORMATI IH  ,14X,  2HXI ,10F11 . 6/17X,10Fll .6  ) 

WRITEI6,  120  )  IDELI J+L),L=1,NWK) 
120  FORMATI IH  ,13X,3HDEL ,10F11 . 6/17X,10Fll . 6  ) 
130  IFIICTIK)  .EQ.  0)  GO  TO  150 

ICK  =  ICTIKJ 

WRITEI 6,  140  )  (ACIL,ICK),L=1,NWK) 
140  FORMATI IH  ,10X,6HCAMBER,10F11 . 6/17X,10Fll . 6  ) 
150  WRITEI  6,  160  )  I  EPSI  J  +  L  ,LCASE  )  ,L  =  1  ,Nl';i<  ) 
160  FORMATI IH  ,13X,3HEPS,10F11 . 6/17X .lOFll . 6  ) 

WRITEI6,  170  )  (BETAIJ  +  L, LCASE  ),L  =  1, NWK) 
170  FORMATI IH  , 12X,4HBETA , lOFll . 6/17X,10Fll . 6  ) 

WRITEI6,  180  )  IITYPEI J+L),L=1,NWK) 
180  FORMATI IH  , 12X,4HTYPE ,101 3X,I2,6X )/17X,10( 3X,I2,6X) ) 

J  =  J  +  NWK 

IL  =  1 

IFINWK  .GT.  9)  IL  =  2 

ILINES  =  ILINES  +  4  +  4*IL 
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IFdCASE    .EQ.    1)    ILINES    =    ILINES    +    2J(IL 

PRINT    CKORDWISE    DATA    ON   JET 

NJK    =    f^JIK  ) 

IF(NJK     .GT.    0)    GO    TO    200 

WRITE(6,    190     ) 
190    FGRi1AT(lH    ,3X,19HTHIS    ROW    HAS   NO   JET  1 

ILINES  =  ILINcS  +  1 

GO  TO  230 
200KRITE(6,  210  )  NJK ,D( K  )  ,DJ( K 1 ,ACTE ( K ) ,THETA(  K .LCASE 1 
210  FORhATl 1H0,1X,20HJET  ELEMENTS    NJ  =,I3,5X,5HD  = ,F10 . 6 ,5X,^HDJ 
1    F10.6,5X,6HACTE  =  ,F10 . fc ,SX ,7HTHETA  =,F10.b) 

WRITE16,  106  )  (XB( JJ  +  L  ),L  =  1,NJK) 

IF(LCASE  .GT.  1)  GO  TO  220 

WRITE16,  110  )  (XI( JJ  +  L  ),L  =  1, NJK) 

WRITE(6,  120  )  (DEL( JJ  +  L  ),L  =  1, NJK) 
220  WRITE16,  170  )  ( BETA( JJ  +  L ,LCASE  )  ,L  =  1 >NJK ) 

WRITElb,  180  )  (ITYPEC JJ  +  L  ),L  =  1, NJK) 

JJ  =  JJ  +  NJK 

IL  =  1 

IF(NJK  .EQ.  10)  IL  =  2 

ILINES  =  ILINES  +  1  +  3  *  IL 

IF(LCASE  .EQ.  1)  ILINES  =  ILINES  +  2*IL 
230  IF(K  .EQ.  NROWS)  GO  TO  260 


NW(K+1) 


10)  IL  =  2 
^  1 

0  )  GO  TO  2^0 
+  1  +  3*IL 

1 )  NEXT  =  NEXT 


+  2^IL 


.GE   NEXT)  GO  TO  2fc0 


NWKl 

IL  =  1 

IF(NWK1  .GT.  9)  IL  =  2 

NEXT  =  <*  +  f+^IL 

IF(LCASE  .EQ.  1)  NEXT  =  NEXT  +  2*IL 

NJKl  =  NJ(K+1) 

IL  =  1 

IFINJKl  .EQ. 

NEXT  =  NEXT 

IFINJKl  .EQ. 

NEXT  =  NEXT 

IF(LCASE  .EC 
2^0  IF(  (E5-ILirJeS) 

KRITEI6,  250  ) 
250  FCF.I1AT(  iHl  ) 

ILirJES    =    1 
260    CONTINUE 

RETURN 

END 

SUBROUTINE  SAVECP' CP .DUMMY ,NMAX,NJT ,ISIZE ,NCASES ) 

THIS  SUBROUTINE  SAVES  THE  CP  SOLUTION  FOR  ALL  FUNDAMENTAL  CASES 
OF  THE  FIRST  STABILITY  DERIVATIVE  RUN  BY  STORINS  Orj  DIRECT  ACCESS 

DIMENSION  CP( 600,10  ),DUMMY(ISIZE ) 

FIND  THE  PROPER  PLACE  TO  WRITE  THE  OLD  SOLUTION 
10  IWRITE  =  N;1AX  +  NJT 

FIND(1'IWRITE+1)  ***  COMMENTED  OUT  BY  JAC*»* 

DEFIfJE    THE    DUMMY    ARRAY 

DO  30  N  =  l.KCASES 

IHRITE  =  IKftlTE  +  1 

DO  20  I  =  1,ISIZE 

DUMMY! I )  =  CP(I,N) 
20  CONTINUE 

SAVE  THE  DATA 

WRITE ( 1' IWRITE  )  DUMMY 
30  COr>ITINUE 

RETURN 

END 

subroutine  bcpich( xcg ,cref ,xi .del ,eps ,beta ,c ,kk ,theta ,ths ,tst ,hl , 
1        nw,iw,nj,ij,n:it,nmax,nrows,n) 

this  subroutine  defines  the  boundary  conditions  for 
the  pitching  rate  derivative  fundamental  case 

dimension  xi( 600  )  ,del( 600 ) .cc+o ) ,kk( 600 ) 

DIMEriSION   N;J(<+0  I,IH1<+0  ),NJ('+0),IJ!'+0  I 

DIMENSION    EPS(  bOO.lO  ), BETA!  600  ,  10  )  ,THETA(  <fO  ,10  )  ,THS(  <+0  ,10  ) 

DIMENSION  TST( ^0 ,10  )  ,HL( 40 ,10 ) 

DEFINE  THE  CAMBER  ANGLES  WHICH  RESULT  FROM  PITCHING 

DO  20  I  =  1,NWT 

KKI  =  KK(I  ) 
10  EPS(I,N)  =  2.00  *  (XIII  )  +  (DELlI)/2.0)*C(KKI)-XCG)  /  CREF 

BETA(I,N)  =  0.00 
20  CONTINUE 

IFINWT  .EQ.  NMAX)  GO  TO  50 

NWTl  =  NWT  +  1 

DO   ^0    I    =   NWTl, NMAX 
30  EPS(I,N)  =  0.00 

BETA(I,N)  =  0.00 
40  CONTINUE 

DEFINE  THE  JET  ANGLES  WHICH  RESULT  FROM  PITCHING 
50  DO  70  K  =  1, NROWS 
60  THETA(K,N)  =  0.00 

UK  =  IJIK) 

IFINJ(K)  .GT.  0)  THETAIK,N)  =  2.00  *  (XI(IJK)  -  XCG)  /  CREF 

THS(K,N)  =  0.00 

TST(K,N)  =  0.00 

HL{K,N)  =  0.00 
70  CONTINUE 

RETURN 

END 
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SUBROUTINE  BCROLK EPS, BETA ,THETA,THS,TST ,Y , 
1  NW,N!iT  ,NMAX,NROWS,NCASES  ) 

C 

C   THIS  SUBROUTINE  DEFINES  THE  BOUNDARY  CONDITIONS  FOR 
C   THE  ROLLIt;G  RATE  DERIVATIVE  FUNDAMENTAL  CASE 

DIMENSION  EPS( 600.10  )  ,BETA( 600 , 10  )  ,THETA( 40 ,10  )  ,THS( 40 ,10  ) , 
1  TST(<+0,l0) 

DIMENSION  Y('+0),NWl<40) 

C   DEFINE  THE  TWIST  AND  CAMBER  ANFLES  WHICH  RESULT  FROM  ROLLING 
N  =  NCASES 
1  =  0 

DO  40  K  =  1,NR0WS 
10  TST(K,N)  =  YIK ) 

THETAiKjN)  =  TST(K,N) 
THS(K,N)  =  0.00 
NHK  =  NW(K) 

00  20  L  =  1,NWK 

1  =  1  +  1 

20  EPS(I,N)  =  TST(K,N) 
30  CONTINUE 
40  CONTINUE 
C 

C   DEFINE  THE  ANGLES  ON  THE  JET 
IF(NMAX  -EQ.  NWT )  RETURN 
NWTl  =  NWT  +  1 
DO  60  I  =  NWTl.NMAX 
50  EPS(I,N)  =  0.00 
60  CONTINUE 
RETURN 
END 

SUBROUTINE  BCYAW  ( EPS, BETA, THETA,THS,Y,KK , 
1  NWT, NMAX,NROWS, NCASES) 

C 

C   THIS  SUBROUTINE  DEFINES  THE  BOUNDARY  CONDITIONS  FOR  ALL  OF  THE 
C   YAWING  RATE  DERIVATIVE  FUNDAMENTAL  CASES 
C 

COMMON  /DERIV/  U0( 40  )  ,CLQ ,CMQ ,CMQMC 

DIMENSION  EPS( 600,10  )  ,BETA( 6O0 , 10  )  ,THETA1 40 ,10  )  ,THS( 40 ,10  ) 

DIMENSION  Y(40),KK(600) 

C   DEFINE  THE  SECTIONAL  NORMALIZED  VELOCITY  INDUCED  BY  YAWING 

DO  10  K  =  l.NROWS 

UOrK  I  =  YIK  )  /  57.295779 
10  CONTINUE 
C 
C   DEFINE  THE  ANGLES  FOR  ALL  FUNDAMENTAL  CASES 

DO  80   N  =  1, NCASES 

DO  SO  I  =  1,NWT 

KKI  =  KK(I  ) 
20  EPS(I,N)  =  -UO(KKI)  *  EPS(I,N) 

BETAII,N)  =  0.00 
30  CONTINUE 
C 

DO  50  K  =  1,NR0WS 
40  THETA(K,N)  =  -U0(K   *  THETA(K,N) 

THS(K,N  )  =  0.00 
50  CONTIt.UE 

IF(rj;iAX  .EQ.  NWT)  GO  TO  80 

NWTl  =  fJWT  +  1 

DO  70  I  =  NWT1,NMAX 
60  EPS(I,N)  =  0.00 

BETA(I,N)    =    0.00 
70   COtvlTINUE 
80   CONTINUE 

RETURN 

END 

C     OVERLAY  ALPHA 

C      irjSERT  STAGE1,SGMAIN,INPTS,INPUTJ,XLETR1,XLETR2,N0RM1,B0XS 

C      INSERT  INCASE, BEECEE,0UT1,INC0MP,BL0WIN,B0XJ, TANS 

C      INSERT  FCA5E1,SG1 

C      OVERLAY  ALPHA 

C      INSERT  STAGES 

C      OVERLAY  BETA 

C     INSERT  STG2D,DWNWSH2EVD1,EVD2,EVD3,EVD4,SHUFL1,SHUFL2, HINGE 

C      ir^SERT  COLUMl, COLUMN, PREP 

C      OVERLAY  BETA 

C      INSERT  STG2S, MATRIX, SAVE, GETT,BAKSUB,S0LV2 

C      OVERLAY  ALPHA 

C      INSERT  STAGE3.STG3FC,STG3FS,STG3FT,STG3C,EXPLE,EXPH1,EXPH2 

C      INSERT  SLOAD,SLOADX,§LOADG.TLOAO,TLOADO,TLOADX,TREFTZ, TABLE 

C      INSERT  FUNDER,C0nDER,SUMITl,SUMIT2,STABLE 

C      INSERT  LOAD1,LOAD2,LOAD3,LOAD4, LOADS, L0AD6 

C      OVERLAY  ALPHA 

C     INSERT  STAGE4,0UT2,SAVECP,BCPICH,BCR0LL, BCYAW 

C 

C**  ONR  sample  CASE  ***  RECTANGULAR  WING   CMU  =  1   WITH  STABILITY  DER 

C4.500     4.500      1.000      0.250      0.250 

C4  3000211 

CO. 9750     0.88750    0.68750    0.2750 

CI  1  2  1 

C5  6 

CO. 000     0.100     0.200     0.500     0.900 

CO. 000     0.100     0.200     0.500     0.800     0.900 

C4.500     0.000      1.000 

CI  1  1  1 

C4 

CI. 000     1.100     1.500     3.000 

CO  0  1  0  0 
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CI. 000 
CO  0  0  0 
CO  0  1  0 
CO. 9000 
CI  0.00 

o 

CI. 000 
C9 


1.000 


0  1.000 
2  10.00  3 

1.000 


1.000 


10.00 
1.000 


1.000 


1.000 
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PROGRAM  JETFLAPIN  LISTLNG 

PROGRAM  JETFLAPIN 
C 

C  ***  JETFLAPIN  INPUT  PROGRAM  DEVELOPED  BY  J. A.  CAMPBELL  ( AUG88  )     *** 

C  ***  PROGRAM  DESIGr^ED  TO  RU!^  UNDER  FORTRAN  77  ON  THE  MICROVAX/2000  *** 
C       FINAL  UPDATES  MADE  1^  SEP  88  -  ( JAC  ) 
C 

C  THIS  PROGRAM  IS  USED  INTERACTIVELY  TO  PRODUCE  AN  INPUT  FILE  FOR  THE 

C  EVD  JET  WING  COMPUTER  PROGRAM,  JETFLAP.   THE  JETFLAP  PROGRAM  CALLS 

C  THE  FILE  CREATED  BY  THIS  PROGRAM  AND  WILL  PROVIDE  THE  FOLLOWING 

C  FOR  WINGS  OF  ARBITRARY  PLANFORM  - 
C 

C  1.   SPANWISE  AND  CHORDHISE  LOADING 

C  2.   SPANWISE  VARIATION  OF  INDUCED  DRAG 

C  3.   A  CAPABILITY  TO  INVESTIGATE  THE  EFFECTS  OF  - 

C  A.   PART  SPAN  FLAPS 

C  B.   PART  SPAN  BLOWING 

C  C.   ROLLING,  YAWING,  PITCHING  AND  SIDESLIP 

C  4.   TOTAL  LIFT  AND  INDUCED  DRAG  (TREFFTZ  PLANE  METHOD), 

C  PITCHING,  YAWING  AfJD  ROLLING  MOMENTS,  ETC. 

C   COMPLETE  DOCUMENTATION  OF  THE  EVD  JET  WING  LIFTING  SURFACE  THEORY 
C   AND  THE  ASSOCIATED  COMPUTER  PROGRAM  ARE  CONTAINED  IN  DOUGLAS  REPORT 

C  JB519  --  A  THEORETICAL  METHOD  FOR  CALCULATING  THE 

C  AERODYNAMIC  CHARACTERISTICS  OF  ARBITRARY  JET  FLAP  WINGS 

C 

C  VOLUME  I 

C  THE  ELEMENTARY  VORTEX  DISTRIBUTION  JET-WING 

C  LIFTING  SURFACE  THEORY 

C 

C  VOLUME  II 

C  EVD  JET-WING  COMPUTER  PROGRAM  USERS  MANUAL 

C 

INTEGER5*4  LUN 

INTEGER*2  INFILE  SIZE,IOFILE  SIZE 

INTEGER    STATUS, NANS 

CHARACTER*20  INFILE ,OUTFILE 

CHARACTER*^   CHECK 

LOGICAL   EXIST 

COMItON/MATHEH/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

C0ntl0tJ/MARK/NRCWS,NR6wSJ  ,NWT  ,NJT  ,NMAX,NW(  ^0  )  ,NJ(  40)  ,IW(  "^0  )  ,IJ(  <^0  ) 

COtlMON/LUKE/   TITL6(20) 

COMMON/ JOHN/   AREA , SPAN, ARATIO,TR .SWEEP ,CREF,CMAC ,CBAR,XMC ,XCG 


IPR,JET,IGT,IHI 
XI(b00),DEL(600), 


C0MM0N/GECM2/XLEAD( -lO  I  ,XTRAIH  hO  1  ,TAfJLE(  "^0  )  ,TANTE(  "^0  ) 
C0MM0N/FCASE2/TWIST(  "+0,10  ),HL(  ^0,10  )  ,DJ(  40  J.ACTEC+O  ),AC(  20,40  ), 
1                                 XHB(4,<+0  ),B£T(4,'+0  l,IFS''+,'+0  l^ICTC+O  l.IHTC+O  ),NCT,NHT 
C0MM0N/FCASE5/EPS( 600,10  l,BETA( 600,10  I  jTHETAC+O , 10  )  ,THS( 40 ,10  ) 
C0MM0N/JCASE/CMU(  40  )  ,CMUPl  40  )  ,Cli'JPPl  40  J 
C0MM0N/S0LV1/B( 600,10  ) 
COMMOU/COMPOS/FACT0R( 10 ,24 t ,NCC 
COMMON/DERIV/U0(40 J,CLQ,CMg,CHQMC 
COMMOfJ/ir.'DAT/LUN 
DATA   CHECK/ '9         '/ 
DATA    LUN/7/ 
C 

C      CALL    LIBRARY    ROUTINE    TO   CLEAR   THE    SCREEN,    THEN   PRINT    HEADER 

C      TITLE    PAGE    AND    ItJSTRUCTIONS 

C 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,    •    PROGRAM  JETFLAPIN  :  VERSION  1  :  6  AUGUST  88  ' 

PRINT  * 

PRINT  *,     •    THIS  PROGRAM  DEVELOPS  THE  INPUT  FILE  REQUIRED  BY  * 

PRINT  *,     '    THE  EVD  JET-WING  COIIPUTER  PROGRAM,  JETFLAP.  ' 

PRINT  * 

PRIhJT  *,     '    DOUGLAS  AIRCRAFT  COMPANY  CREATED  PROGRAM  JETFLAP:' 

PRINT  *,  •  THE  ELEMENTARY  VORTEX  DISTRIBUTION  (EVD)  JET-WING' 

PRINT  *,  '  COMPUTER  PROGRAM  FOR  DETERMINING  THE  AERODYNAMIC 

PRINT  *,  '  CHARACTERISTICS  OF  ARBITRARY  JET  FLAPPED  WINGS' 

PRINT  * 

PRINT  *,  '  A  SIGNIFICANT  AMOUNT  OF  INFORMATION  REGARDING' 

PRINT  *,  '  YOUR  WING  PLANFORM  IS  REQUIRED  BY  THIS  PROGRAM.' 

PRINT  *,  '  IF  YOU  HAVE  NOT  READ  THE  USERS  MANUAL,  YOU  ARE' 

PRINT  *,  '  ENCOURAGED  TO  ANSWER  NO  TO  THE  FOLLOWING  QUESTION' 

PRINT  *,  '  AND  RETURN  WITH  YOUR  PREPARED  PLANFORM  DATA.' 

PRINT  * 

C 

1   WRITE  (6,1241) 

CALL  QUERY  (NANS) 

IF  (NANS  .EQ.  1)  THEN 

GO  TO  2 
ELSE  IF(NANS  .EQ.  2  )THEN 

GO  TO  110 
ELSE 

WRITE  (6,1242) 
GO  TO  1 
END  IF 

6410   FORMAT  ( IX, ' ======-============================================= 

!  =  =  =  =  =  =  =  =  =  =  ===  =  =  =  =  =  =  =  =  =  =  =  =  =  =■  ) 

6440   FORMAT  ( //,8X, 'ENTER  DATA  FOR  THE  JETFLAP  PROGRAM  IN  FREE  FORMAT. 
l',/,8X, 'AFTER  EACH  QUESTION  THE  FORMAT  IS  GIVEN:  (R)  -  REAL,' 
2,^X,'(I)  -  INTEGER. 'j/jSX, 'EXAMPLE:  (R,R)  INPUT  2.9,6.789  ', 
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3 'OR  ri)  INPUT  5' ,//1 
1241   FORMAT  (IX,'  DO  YOU  WISH  TO  RUN  THIS  PROGRAM?  1  =  YESiZ  =  NO") 
IZi+Z   FORMAT  (IX,'     ItJVALID  RESPOIJSE  -  REENTER') 
C 

C  FOLLOWING  LINES  OPEN  THE  INPUT  FILE  TO  BE  CREATED 

C 

2  CONTIt>'UE 

CALL  CLRSCRN 

PRINT  * 

PRINT  * 

PRINT  *,  '  (ENTER  9«»<?  TO  EXIT.)' 

STATUS  =  LIB$GET  INPUT  (OUTFILE, 
2  '  ENTER  NAME  OF~OUTPUT  FILE  TO  CREATE:   ', 
2  lOFILE  SIZE  1 

C   CHECK  TO  SEE  IF  THE  FILE  EXISTS  BEFORE  CREATING 

IF  (OUTFILE  .EQ.  '9«»9'  )  GO  TO  1 


The  OUTPUT  file 
Prompt 

Filename  size 
IT 


12'+3 


INQUIRE  (FILE  =  OUTFILE  (1:I0FILE  SIZE),  EXIST  =  EXIST) 
IF  (  EXIST  )  THEN 

PRINT  * 

PRINT  *,  •  THAT  FILE  ALREADY  EXISTS.' 

KRITE  (6,12'^SI 

PRINT  *,  '  (OR  ENTER  999  TO  RETURN  TO  EXIT  OPTION).' 

PRINT  * 

CALL  QUERY  (NANS) 
ELSE 

GO  TO  <* 
END  IF 
IF  (NANS  .EQ.  1)  THEN 

GO  TO  *+ 
ELSE  IFINANS  .EQ.  2  )THEN 

GO  TO  2 
ELSE  IFINANS  .EQ.  999  )THEN 

GO  TO  1 
ELSE 

WRITE  (6,12<i2) 
GO  TO  2 
END  IF 
FORMAT  (IX,'  DO 


NO"  ) 


.._   „.  ....,   __  YOU  WISH  TO  OVERWRITE  THIS  FILE?  1  =  YES>2 

C  OPEN  FILE  THAT  BECOMES  INPUT  FILE  FOR  PROGRAM  JETFLAP 
<+   OPEN  (UrJIT  =  LUrK 

2      FILE=  OUTFILE, 

2      ORGANIZATION=  'SEQUENTIAL', 

2       ACCESS=  'SEQUENTIAL', 

2      RECORDTYPE=  'VARIABLE', 

2       FORM=  'FORMATTED', 

2      ST AT US =  'UNKNOWN') 

C 

C   INFORM  USER  OF  DESIRED  INPUT  FORMATS  AND  ENTER  FIRST  LINE  INPUT  DATA 

C   FIRST  LINE  INPUT  DATA--THE  PROBLEM  TITLE  FOR  THIS  CASE 

C 

8   CALL  CLRSCRN 

WRITE  ibyb^lO) 

WRITE  (6,6'4h0) 

WRITE  (b,6410) 

WRITE  (b,b'450) 

WRITE  ( D.b^oO  I 

READ  (5,1000,  END=100)  TITLE 

FORMAT  (lX,'*^*:*^**i^*:*****************   JETFLAP  INPUT  PARAMETERS  ', 

FORMAT  (1X,28H==>  ENTER  THE  PROBLEM  TITLE : ,/,5X,20H( 80  LETTERS  MAX 

iiriun  1 1 

FORMAT  (20A4) 
FORMAT  (1X,20A4) 


6<i50 

6460 

1000 
1001 


SUMMARY  OF  FIRST  LINE  OF  INPUT  DATA 


OF  FIRST  LINE  OF  INPUT  DATA?', 
=  YESi  2  =  NO) 

10 


CALL  CLRSCRN 
WRITE  (6,570) 

570  FORMAT  (Ix, 'SUMMARY 
1/,1X,25H==>  ENTER  1 

CALL  QUERY  (NANS) 
IF  (Nif.S.GE.2  I  GO  TO 

WRITE  (b,571) 

WRITE  (6,1001  )  TITLE 

WRITE  ( b ,575  I 

CALL  QUERY  (NANS) 

IF  (tJANS.EQ.l  I  GO  TO  8 

571  FORMAT  (1X,7X,'THE  TITLE  CARD  FOR  THIS  DATA  IS:') 

575    FORMAT  (//,1X,'  DO  YOU  WISH  TO  CHANGE  FIRST  LINE  OF  INPUT  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YESi  2  =  NO ) 
10    CONTINUE 
C   WRITE  DATA  TO  FILE 

WRITE(  LUrJ,1000)    TITLE 


SECOND  LINE  INPUT  DATA--GENERAL  PLANFORM  PARAMETERS 

READ  GENERAL  GEOMETRY  CONTROL  DATA 

CALL  CLRSCRN 

PRINT  *,  '==>  ENTER  THE  WING  AREA,  IN  UNITS  OF  SPAN»*2.' 

PRINT  *,  '     IF  SPAN  IS  IN  FEET,  ENTER  AREA  IN  SQUARE  FEET.(R)' 

READ  (5,*)  AREA 

PRINT  * 

PRINT  *,  '==>  ENTER  THE  WING  SPAN  SEEN  BY  THE  FREESTREAM' 

PRINT  *,  '     VELOCITY.  USE  ANY  DESIRED  UNITS.(R)' 

READ  (5,*)  SPAN 

PRINT  * 

*,  '==>  ENTER  CREF,  THE  WING  REFERENCE  CHORD.  THIS  WILL  BE' 
*,  '     USED  FOR  NORMALIZING  VARIOUS  AERODYNAMIC  COEFFICIENT 


PRINT 
PRINT 
♦S.  ' 
PRINT 
PRINT 


USE  THE  SAME  UNITS  AS  SPAN.   IF  YOU  ENTER  ZERO,' 
THE  MEAN  AERDYNAMIC  CHORD  WILL  BE  USED.(R)' 
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READ  (5,*)  CREF 

PRINT  * 

PRINT  *,  '==>  ENTER  XMC ,  THE  POINT  ABOUT  MHICH  PITCHING  MOMENTS  W 
+ILL  BE' 

PRINT  *,     '  TAKEN,  MEASURED  FROM  THE  WING  APEX  (ORIGIN).' 

PRINT  *,     '  USE  THE  SAME  UNITS  AS  SPAN.(R)' 

READ  (5,*)  XMC 

PRINT  ^ 

PRir^T  *,     •==>   ENTER  XCG,  THE  WING  CENTER  OF  GRAVITY  LOCATION,  MEAS 
+URED' 

PRINT  *,  '     FROM  THE  WING  APEX  (ORIGIN).  THIS  WILL  BE  USED  AS  TH 

PRINT  *,  '     PITCHING  AXIS  FOR  COMPUTING  THE  STABILITY  DERIVATIVE 
+S' 

PRINT  *,  '     DUE  TO  PITCHING.  SAME  UNITS  AS  SPAN.(R)' 

PRINT  *,  '     NOTE:  THIS  VALUE  IS  REQUIRED  IF  IDERIV  IS  NON-ZERO.' 

PRINT  *,  •         IF  STABILITY  DERIVATIVES  NOT  REQUIRED,  ENTER  0.' 
PRINT  * 
READ  (5,*)  XCG 

c'  SUMMARY  OF  SECOND  LINE  INPUT  DATA 

C 

CALL  CLRSCRN 
WRITE  (6,530) 

580  FORMAT  (IX, 'SUMMARY  OF  SECOND  LINE  OF  INPUT  DATA?', 
1/,1X,25H==>  ENTER  1  =  YESj  2  =  NO) 

CALL  QUERY  (NANS) 

IF  (NAhJS.GE.2)  GO  TO  20 

WRITE  (6,581) 

WRITE  (6,582)  AREA, SPAN, CREF , XMC , XCG 

WRITE  (6,590) 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l  )  GO  TO  10 

581  FORMAT  ( IX, 5X, ' AREA ' ,7X, ' SPAN' ,7X, "CREF ' ,7X, 'XMC ' ,8X, 'XCG '  ) 
682    FORMAT  ( 1X,5( IX , FIO . 2  I  ) 

590    FORMAT  ( // , lX,3iHCHANGE  SECOND  LINE  OF  INPUT  DATA?, 
1/,1X,25H  =  =  >  ENTER  1  =  YES}  2  =  NO ) 
20    COrJTINUE 
C   WRITE  DATA  TO  FILE 


WRITE( LUrK^O  )  AREA, SPAN, CREF, XMC, XCG 
<¥0    FORMAT(5F10.^) 


C   THIRD  LINE  INPUT  DATA--GENERAL  CONTROL  PARAMETERS  (FLAGS) 

C 

CALL  CLRSCRN 

PRINT  *,  '==>  ENTER  NROWS,  THE  NUMBER  OF  SPANWISE  SECTIONS  THE  WIN 
+G' 

PRINT  *,  •     IS  DIVIDED  INTO.  REQUIREMENT :( 3 . LE .NROWS. LE .^0 ).( I ) ' 

READ  (5,»f)  NROWS 

PRINT  * 

PRINT  *,'==>  ENTER  NCASES,  THE  TOTAL  NUMBER  OF  FUNDAMENTAL  CASES.' 

PRINT  *,'     NCASES  MUST  BE  ONE  MORE  THAN  THE  NUI'BER  OF  CASES  FOR' 

PRINT  *,'     WHICH  DATA  INPUT  WILL  BE  GIVEN  TO  ALLOW  FOR  THE  ANGLE 
+  ' 

PRINT*,  •     OF  ATTACK  CASE.  REQUIREMENT :( 1 . LE .NCASES. LE . 10  ).( I  ) ' 

READ  (5,*)  NCASES 

PRINT  *: 

PRINT  *,     •==>  ENTER  ISYMM,  THE  X-AXIS  SYMMETRY  INDICATOR  FLAG.(I)' 

PRINT  *,  '     =0   WING  AND  JET  ARE  SYMMETRIC' 

PRINT  *,  '     >  0   WING  OR  JET  ARE  NON-SYMMETRIC' 

PRINT  *,  '     <  0   WING  AND  JET  ARE  ANTI-SYtlMETRIC  * 

READ  IB,*)    ISYMM 

PRINT  * 

PRINT  *,  '==>  ENTER  IPRINT,  THE  PRINTED  OUTPUT  CONTROL  FLAG.(I)' 

PRINT  *,  '     >  1   PRINT  GEOMETRY  DETAILS  AND  TOTAL  AERO  COEFFS. ' 

PRINT  *,  '     =1   IN  ADDITIOl^l,  PRINT  SPAKNISE  LOADING.' 

PRINT  *,  '     =0   IN  ADDITION,  PRItJT  CHORDHISE  LOADING.' 

PRINT  *,  '     <  0   IN  ADDITIOfJ,  PRItJT  ALL  MATRICES,  BACK  SUBSTI-' 

PRINT  *y     •  TUTION  CHECK  AND  OTHER  DETAILS.  (RESERVED  FOR' 

PRINT  *,     '  TROUBLESHOOTING-VERY  LARGE  AMOUNTS  OF  OUTPUT.)' 

READ  (5,*)  IPRINT 

PRINT  * 

PRINT  *,  '==>  ENTER  JETFL6,  THE  JET  INDICATOR  FLAG. (I)' 

PRINT  *,  '  ***  WARNING:  THIS  VERSION  NOT  TESTED  FOR  JET  INPUTS.**' 

PRINT  *,  '     =0   THERE  IS  A  JET  SHEET.' 

PRINT  *,  •     =1   THERE  IS  NO  JET  SHEET.  NO  JET  INPUTS  WILL  BE  RE 
+AD.  ' 

READ  (5,*)  JETFLG 

PRINT  * 

PRINT  *,  '==>  ENTER  IGTYPE ,  THE  WING  PLANFORM  GEOMETRY  INDICATOR  F 
4LAG.(I  )' 

PRINT  *,  '     =1   WING  PLANFORM  IS  COMPLETELY  ARBITRARY,  AND  SECT 
+IONAL' 

PRINT  *,  '  LEADING  AND  TRAILING  EDGE  COORDINATES  WILL  BE  R 

+EAD' 

PRINT  *,  '         TO  DEFINE  THE  PLANFORM.' 

PRINT  *,  •     =2   WING  PLANFORM  IS  TRAPEZOIDAL,  AND  SIMPLIFIED' 

PRINT  *,  '  PLANFORM  INPUT  WILL  BE  READ.' 

READ  (5,*)  IGTYPE 

PRINT  * 

PRINT  *,  '==>  ENTER  IHINGE,  THE  HINGE  EVD  INDICATOR  FLAG. (I)' 

PRINT  *,  '     =0   REGULAR  EVD  ONLY  WILL  BE  USED  ON  ALL  HINGE  ELEM 
+ENTS. ' 

PRINT  *,  '     >  0  HINGE  EVD  WILL  BE  USED  ON  ALL  HINGE  ELEMENTS. 
+THIS' 

PRINT  *,  •         OPTION  IS  NOT  PERMITTED  FOR  USE  IN  COMPUTING  TH 
♦  E' 

PRINT  *,  '  DYNAMIC  STABILITY  DERIVATIVES  (IDERIV>0).' 

READ  (5,*)  IHINGE 

PRINT  * 

PRINT  *,'==>  ENTER  IDERIV,  THE  DYNAMIC  STABILITY  DERIVATIVE  FLAG.' 
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PRINT  *,     '  =  0 

PRINT  *,  ' 

PRINT  *,  ■     >  0 

PRINT  *,     ' 

READ  (5,»)  IDERIV 

PRINT  * 


A  BASIC  RUN  WILL  BE  EXECUTED  WITH  NO  STABILITY' 
DERIVATIVES  COMPUTED.' 

A  BASIC  RUN  WILL  BE  EXECUTED  FOLLOWED  BY  A" 
OYNAHIC  STABILITY  DERIVATIVE  RUN. ' 


C   SUMMARY  OF  THIRO  LINE  INPUT  DATA 
C 

CALL 


CLRSCRN 
WRITE  (6,600) 

600    FORMAT  (IX, 'SUMMARY  OF  THIRD  LINE  OF  INPUT  DATA?', 
1/,1X,2SH==>  ENTER  1  =  YESj  2  =  NO) 
CALL  QUERY  (NANS) 
IF  (NANS.GE.2)  GO  TO  50 
WRITE  (6,6011 

WRITE  (6,602)  NROWS,NCASES,ISYMM,IPRINT 
WRITE  (6,602) 

WRITE  (6,602)  JETFLG,IGTYPE,IHINGE, IDERIV 
WRITE  (6,60'+ I 
CALL  QUERY  (NANS) 
IF  (NANS.EQ.l)  GO  TO  20 
FORMAT  ( IX , ' NROWS ' , 2X , ' NCASES ' , IX , ' ISYMM ' , 2X , ' IPRINT ' ) 


601 
602 
603 
60<+ 


) 


FORMAT  ( 1X,4( 2X,I2,2X),/ 

FORMAT  ( IX, 'JETFLG' .IX^'IGTYPE' ,1X,*IHINGE' , IX, 'IDERIV ) 
FORMAT  (//,1X,52HCHANGE  THIRD  LINE  OF  INPUT  DATA?, 
1/,1X.25H==>  ENTER  1  =  YESj  2  =  NO ) 
30   CONTINUE 
C   WRITE  DATA  TO  FILE 

WRITE (  LU^J,'+l  )  NROWS, NCASES, ISYMM, IPRINT, 
1  JETFL(S,IGTYPE,IHIN(3E, IDERIV 

^1  FORMAT! 1012) 


ARE 

SPA 

CRE 

XM 

XC 

NRO 

NC 

ISY 

IPR 

JET 

IGT 

IHI 


AREA 
SPAN 
CREF 

xr.z 

XCG 

NRO'.^S 

NCASES 

ISYMM 

IPRINT 

JETFLG 

IGTYPE 

IHINGE 


DETERMINE  WHICH  TYPE  OF  RUN  IS  DESIRED 
IFdDERIV  .NE.  0)  GO  TO  60 

A  REGULAR  RUN  WILL  BE  EXECUTED 
50  CALL  APPLYl 

GO  TO  (  60  ,  70  ,  100  ,  120  ),  IR 

A  STABILITY  DERIVATIVE  RUN  HILL  BE  EXECUTED 
oO  CALL  APPLY2 

IF(IR  .EQ.  2)  GO  TO  120 


C 

c 

C   PRINT  COMPLETION  MESSAGE  FOR  THIS  RUN  AND  GO  BACK  TO  BEGIN  A  NEW  RUN 
70  WRITE) 6,  SO  1 
80  FORMAK IHO////  32X,10( 5H*****  ) ,  3H**^/  32X, 

1  53H*   THE   PROGRAM   HAS   REACHED   NORMAL   TERMINATION  */ 

2  32X,10(5H**>^*^),3H**i^  ) 

C  PUT  IN  AN  OPTION  TO  DO  ANOTHER  RUN  OR  PRINT  A  '9'  CARD  AND  QUIT.*** 

C 

C      READ(5,  20,  END  =  100  I  TITLE 

90  IF(TITLE(1)  .EQ.  CHECK)  GO  TO  10 


GO  TO  30 


PRINT  *,  '==>  DO  YOU  WISH  TO  ENTER  ANOTHER  SET  OF  DATA?  (Y  OR  N)' 
90  READ  (5,  '(  Al  )'  )  AtJS 
IF  (  A^JS.EQ.  'Y'  )  THEM 

GO  TO  "4 
ELSE  IF  ( ANS.EQ.  'N'  )  THEN 

WRITE( LUN,1010)  CHECK 
ELSE 

PRINT  *,  '   INVALID  RESPONSE  -  REENTER.' 
GO  TO  90 
END  IF 
PRINT  * 
1010  FORMAT (A^) 
C 

C   PRINT  COMPLETION  MESSAGE  AND  STOP  EXECUTION 
100  WRITE(6,  80  J 
110  STOP 
C 

C********************************************»******»****»******* ******* 
C   A  FATAL  ERROR  HAS  OCCURED.   PRINT  FINAL  MESSAGE  AND  STOP  EXECUTION. 
C*****«^******^*-**^***********«*it>f**************-»t*********^************** 
120  WRITE(6,  130  ) 
130  FORMAK  iH0////62X  ,2(  <+H****  )/31X  ,11(  5H*****  )/ 

1  31X,55H*   THE   PROGRAM   HAS   REACHED   ABNORMAL   TERMINATION  */ 

2  31X,11(5H*****)/62X,2(<+H****)  ) 
140  STOP 

EtJD 

SUBROUTINE  CLRSCRN 
C 
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C   LIBRARY  ROUTINE  TO  CLEAR  THE  SCREEN. 
C 

ISTAT  =  LIB$ERASE  PAGE  (1,1) 

RETURN 

C**^*^^«i«*>r*^»t******^***********5t****Jf********************************** 

EfJD 

SUBROUTINE  QUERY(NANS) 
C 

C   ROUTINE  TO  TRAP  ERRORS  CAUSED  BY  IMPROPER  RESPONSES  TO  QUESTIONS. 
C   THE  COMPUTER  GENERATES  AND  ERROR  WHEN  A  CHARACTER  IS  SUPPLIED  TO 
C   A  QUESTION  EXPECTING  AN  INTEGER  OR  REAL  VALUE. 
C 

NQTEST=0 
1  CONTINUE 

IF  (NQTEST  .GT.  0)  THEN 

PRINT  *,  ■   CHARACTER  VALUES  ARE  NOT  VALID." 
PRINT  ^,  '   PLEASE  ENTER  A  VALUE  OF  1  OR  2." 

END  IF 

NQTEST  =  NQTEST  +  1 

READ  (5,*,ERR=1)NANS 

RETURN 

END 

SUBROUTINE  APPLYl 
C 
C   THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  INPUT  FOR  REGULAR  CASES 

COMMON/MATHEW/NCASES,ISYm,IPRINT,JETFLG,IGTYPE,IHINGE 

connoN/spiRiT/  newhcxnewcmu.noalfa, logic, ir 

C   DECIDE  WHETHER  OR  NOT  THERE  IS  AN  ALPHA  CASE 
NOALFA  =  1 
IR  =  1 
LOGIC  =  1 

IFIISYKM  .LT.  0)  NOALFA  =  0 
C 

C   INITIALIZE  AND  INCREMENT  THE  CMU  CASE  CONTROL  COUNTER 
10  NEWCMU  =  0 
20  NEWCMU  =  NEWCMU  +  1 
C 

C   EXECUTE  THE  PROBLEM  FORMATION  STAGE 
30  CALL  STAGEl 

GO  TO  (  'iO  ,  60  ,  70  ,  80  ),  IR 
^0  CONTINUE 
C 

C   THE  PROGRAM  HAS  BEEN  EXECUTED  SUCESSFULLY 
C   GO  BACK  AND  DO  A  NEW  CI-IU  CASE 
IFtJETFLG  .NE.  0  )  GO  TO  60 
GO  TO  20 
C 

C*»f*^**^*****s^**»f********^********^******************f  ******************* 
C   THIS  RUN  HAS  BEEN  COMPLETED.   RETURN  TO  START  A  NEW  RUN. 
60  IR  =  2 
RETURN 
C   THIS  RUN  HAS  BEEN  COMPLETED.   NO  FURTHER  RUNS  FOLLOW. 
70  IR  =  3 
RETURN 
C   A  FATAL  ERROR  HAS  OCCURED.   RETURN  AND  QUIT. 
80  IR  =  4 
RETURN 
C*****^«J^*'^*^*********************************************************** 
END 

SUBROUTINE  APPLY2 
C 

C   THIS  SUBROUTINE  CONTROLS  ALL  ASPECTS  OF  INPUT  FOR 
C   STABILITY  DERIVATIVES 
C 

c 

C   CHECK  ON  STATUS  OF  CONTROL  FLAGS 
10  IHir;GE  =  0 
NOALFA  =1 
NEWCMU  =  1 
IFdSYMM  .GE.  0)  GO  TO  30 

isym;-i  =  0 

WRITE(6,  20  ) 
20  FORMAT! 1H0///16X,'+1HTHE  ISYMM  FLAG  INDICATED  AN  ANTI-SYMETRIC , 
1     "^BH  CASE.   HOWEVER,  IT  WILL  BE  TREATED  AS  SYMETRIC .  ) 

C   EXCECUTE  THE  FIRST  RUN 

C 

C   FORMULATE  THE  PROBLEM  AS  USUAL 

30  CALL  STAGEl 

GO  TO  (  40,  110,  100,  110),  IR 

40  LOGIC  =  1 
C 
C      WRITE(6,  70   ) 

70  FORMAT  (IHl////////////  37X,11(  4H**** ) .2H**  / 

1  37X,46H*  SECOND  RUN  FOR  STABILITY  DERIVATIVE  CASE  *  / 

2  37X,11(4H****),2H**) 

C  IF  THIS  IS  A  SYMETRIC  WING,  SWITCH  IT  TO  ANTI-SYMETRIC  FOR  RUN  2 

80  IFdSYMM  .EQ.  0)  ISYMM  =  -1 
C 

c*********************************************************************** 

C  THIS  IS  THE  END  OF  THE  LINE 
100  IR  =  1 
RETURN 
C  THE  FOLLOWING  LINE  SHOULD  NOT  BE  REACHED.   INCLUDED  FOR  CONTINUITY. 
C   A  FATAL  ERROR  HAS  OCCURED.   RETURN  ABNORMALLY  TO  MAIN. 
110  IR  =  2 
RETURN 
C**************************************************************** ******* 
END 
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SUBROUTINE  STAGE  1 
C 

C   THIS  SUBROUTINE  READS  THE  GENERAL  GEOMETRY  PARAMETERS  AND  FLAGS,  AND 
C   CONTROLS  THE  CALLING  OF  THE  SPECIALIZED  GEOMETRY  SUBROUTINES 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 

COfU10N/rlARK/NRCWS,NROWSJ,r,"r!T,NJT,NMAX,N:-lf^O  IjNjCtO  )  ,IW(  ^0  )  ,IJ(  40) 

COMMON/SPIRIT/    NEWMAX,NEWCMU,NOALFA , LOGIC ,IR 

C      CHECK   WHETHER   THIS   IS   THE    FIRST   CMU   CASE 

IFINEHCnU    .GT.     1  )    GO   TO   50 

IF((NROliS    .GT.    i+O)    .OR.    ( NROHS    .  LT .    3))    GO   TO   80 
C 
C      SECTIONAL    INPUT 

10IF((IGTYPE    .EQ.    D.OR.dGTYPE    .EQ.    2  )  )CALL   SGMAIN(  NOALFA,IR ) 

GO  TO  (  20  ,  <+0  ,  100  ),  IR 

C   USER  INPUT  ERROR 

C 

C   PRINT  ERROR  MESSAGE  BECAUSE  IGTYPE  HAS  THE  WRONG  VALUE 

20  WRITEtb,  30  )  IGTYPE 

20  FORMAT! lHl///4'+X,32HTHE  IGTYPE  FLAG  HAS  THE  VALUE  OF, 12/ 

1  44X,37H0NLY  THE  VALUES  1  OR  2  ARE  ACCEPTABLE// 

2  <+4X,15HPLEASE  REENTER.  ) 
READ! 5,*)  IGTYPE 

GO  TO  10 
C 

C   READ  THE  COMPOSITE  CASE  REQUIREMENTS 
40  CALL  INCOMPINCASES.IR ) 
IFIIR  .EQ.  2)  GO  TO  100 
C 
C   READ  THE  CMU  DATA 

50  CALL  BLOWIN( JETFLG,IR) 

GO  TO  (  60  ,  110  ,  120  ),  IR 
60  CALL  BOXJiNEWMAX,IR) 
IFlIR  .EQ.  2)  GO  TO  50 

C   RETURN  NORMALLY  TO  THE  CONTROL  PROGRAM 

70  IR  =  1 
GO  TO  130 
C 
C   PRINT  ERROR  MESSAGE  B'^CAUSE  THE  NROWS  VALUE  IS  UNACCEPTABLE 

80  WRITE! b,  90  )  NROH. 

90  FORMAT!  iHl/55X,7HN.\0WS  =,I3) 
C 

C   A  FATAL  ERROR  HAS  OCCURED.    RETURN  ABNORMALLY  TO  MAIN. 
100  IR  =  4 

GO  TO  130 
C   RETURN  TO  MAIN  AND  BEGIN  A  COMPLETELY  NEW  RUN 
110  IR  =  2 

GO  TO  130 
C   RETU-N  TO  MAIN  AND  STOP  THE  EXECUTION 
120  IR  =  3 
130  RETURN 

END 

SUBROUTINE  SGMAINt NOALFA  ,IR  ) 
C 

C   THIS  SUBROUTINE  CONTROLS  ALL  GEOMETRY  CALCULATIONS  FOR  THE 
C   SECTIONAL  GEOMETRY  METHOD 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG, IGTYPE, IHINGE 

C   READ  THE  WING  PLANFORM  GEOMETRY  DATA 
10  CALL  INPTSdRt 

IFIIR  .EQ.  2  1  GO  TO  100 
IFdGTYPE  .EQ.  1)  CALL  XLETRKIR) 
IF(IR  .EQ.  2  I  GO  TO  100 
IFdGTYPE  .EQ.  2)  CALL  XLETR2 
C 
C   NORMALIZE  THE  WING  PLANFORM  GEOMETRY  DATA 

20  CALL  NORMl 
C 

C   READ  THE  JET  SHEET  GEOMETRY  DATA 
30  CALL  INPUTJdR  I 

IFdR  .EQ.  2  )  GO  TO  100 
C 

C   CONSTRUCT  THE  EVD  ELEMENTS 
40  CALL  BOXSdR) 

IFdR  .EQ.  2)  GO  TO  100 

C  CONSTRUCT  THE  SET  OF  FUNDAMENTAL  GEOMETRIC  CASES 
C 

DO  90  N  =  1,NCASES 
LCASE  =  N 
C 
C  READ  THE  GEOMETRY  FOR  THIS  CASE 

50  CALL  INCASE  I LCASE, NOALFA) 
C 

C  PRINT  THE  GEOMETRY  AND  CONSTRUCTED  CASE  DATA  IF  DESIRED 
IFCLCASE  .EQ.  1)  WRITElo,  70  ) 
70  FORMAT! IHl) 
C 

CALL  CLRSCRN 
PRINT  * 

PRINT  *,  '==>  DO  YOU  WISH  TO  SEE  THE  CONSTRUCTED  CASE  DATA?' 
PRINT  »,  ■     ENTER  !Y  OR  N)' 
75  READ  15,  MAD*  )  AtJS 
IF  ! ANS.EQ.  'Y'  )  THEN 
GO  TO  80 
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ELSE  IF  fANS.EQ.'N')  THEN 

GO  TO  90 
ELSE 

PRINT  *,  '   INVALID  RESPONSE  -  REENTER.' 
GO  TO  75 
END  IF 
PRINT  ^ 
1010  F0RMAT(A4) 
C 

80  CALL  OUTKLCASE) 
90  CONTINUE 
IR  =  2 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    RETURN  ABNORMALLY  TO  STAGEl. 
C 

100  IR  =  3 
RETURN 

END 

SUBROUTINE  INPTS(IR) 
C 

C  THIS  SUBROUTINE  READS  THE  WING  GEOMETRY  DATA  FROM  THE  KEYBOARD 
C   FOR  THE  SECTIONAL  GEOMETRY  METHOD 
C 

COMMON/MARK/NROWS,NROWSJ,NWT,NJT,NMAX,NW(<+0),NJ(40),IW('+0),IJ(40) 

C0MM0N/GE0M1/Y(  40  )  ,CHORD(40  )  ,DELTA(  <+0  )  ,XB(  60(5  )  ,XI(  600  )  ,DEL(  600  ) , 
1  D(40),KK(600),ITYPE(600) 

C0MM0N/GE0M2/XLEAD( '+0 ) ,XTRAIL( 40 ) ,TANLE( 40 ) ,TANTE(  40 ) 

C0MM0N/SG1/XBH( 20,10 ),XBJ( 20 ,10 ) ,ICTYPE ( 40 ) ,IJTYPE( 40 ) , 
1  NHTYPE,NJTYPE 

COMMON/INDAT/LUN 

DIMENSION  Nil  10) 
C 

C   INPUT  THE  SECTIONAL  PLANFORM  DATA 
10  NUTYPE  =  0 

C 

C   SECTION  CENTERLINE  LOCATION  CARDS 

C 

CALL  CLRSCRN 

PRINT  *• 

PRINT  *,  ■     SECTION  CENTERLINE  LOCATION  VALUES' 

PRINT  * 

PRINT  «,  '==>  ENTER  Y,  THE  SPANWISE  DISTANCE  FROM  THE  CENTERLINE,' 

PRINT  *,  '     (X-AXIS),  TO  THE  SECTION  CENTERLINE,  NORMALIZED  BY* 

PRINT  *,'     THE  HALF-SPAN,  SPAN/2.  REQUIREMENT:  ( -1 . 0<Y<1 . 0  ) . I R  ) ' 

PRINT  * 

PRINT  * 

PRINT  * 
+IN5S. ' 

PRINT  ^ 

PRINT  * 

PRINT  * 

PRINT  S^ 

DO  15  K  =  1,NR0WS 

WRITE! 6,12 )  K.NROWS 

READ(5,  *  )  Y(K) 
12  FORMATflX,'   ENTER  SECTION  CENTERLINE  ',12,'  OF  ',12,'  SECTIONS 
+/  ) 

PRINT  * 
15  CONTINUE 
C 

C   SUMMARY  OF  SECTION  CENTERLINE  INPUT  DATA 
C- 


BEGIN  AT  THE  RIGHT  WING  TIP  AND  WORK  TOWARD:' 
a  t  WING  CENTERLINE  FOR  SYMETTRIC  OR  ANTISYMMETRIC  W 

b)  LEFT  WING  TIP  FOR  NON-SYMMETRIC  WINGS.' 

A  MAXIMUM  OF  40  SECTIONS  IS  ALLOWED.' 


CALL  CLRSCRN 

PRINT  * 

PRINT  *,  '   ***  YOU  ARE  ENCOURAGED  TO  CHECK  THIS  DATA  I  ***  ' 

PRINT  * 

PRINT  *,  '   IF  THE  SECTION  CENTERLINE  VALUES  ARE  NOT  VALID" 

PRINT  iiy     '       M   ERROR  WILL  BE  DETECTED  BY  SUBROUTINE  BOXS , ' 

PRINT  i^,     '   THE  PROGRAM  WILL  TERMINATE,  AND  YOU  WILL  HAVE  TO' 

PRINT  K,  '   REENTER  ALL  YOUR  DATA.   THE  CHOICE  IS  YOURS...' 

PRINT  ^ 

WRITE  16,13) 

13  FORMAT  (IX, 'SUMMARY  OF  SECITON  CENTERLINE  INPUT  DATA?', 
1/,1X,25H==>  ENTER  1  =  YES)  2  =  NO) 

CALL  QUERY  (NANS  t 

IF  (NiNS.GE.2)  GO  TO  20 

WRITE  (6,14) 

WRITE  (6,19)  (K,  Y(K),K=1,NR0WS) 

WRITE  (6,16) 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l t  GO  TO  10 

14  FORMAT  (1X,7X,'THE  SECTION  CENTERLINE  DATA  IS:') 

16  FORMAT  (//,1X,'D0  YOU  WISH  TO  CHANGE/REENTER  THIS  INPUT  DATA?' 

1/,1X,25H  =  =  >  ENTER  1  =  YES)  2  =  NO  J 
20  CONTINUE 
C   WRITE  DATA  TO  FILE 

WRITE(LUN,  18  )  ( Y( K ) ,K=1 ,NROWS ) 

18  FORMAT(8f10.6) 

19  FORMAK IX, SX, 'SECTION  =' ,12 ,3X, 'CENTERLINE  =',F10.6) 

C  WING  SECTION  TYPE  CARDS 


C- 


CALL  CLRSCRN 

PRINT  * 

PRINT  *,  '     WING  SECTION  TYPES' 

PRINT  * 

PRINT  *,  '==>  ENTER  ICTYPE,  THE  TYPE  NUMBER  OF  EACH  WING  SECTION.' 

PRINT  *,  '     THE  ARRANGEMENT  OF  EVD  ELEMENTS  IN  A  ROW  DETERMINES' 

PRINT  *,  ■    THE  WING  ROW  TYPE.  ANY  SECTIONS  HAVING  THE  SAME  NUMB 
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+ER' 

PRINT  * 

+ION ' 
PRINT  * 

+PE' 
PRI^JT  * 
PRINT  * 
PRINT  * 
23  PRINT  * 
DO  Zk    K 


OF  ELEMENTS,  ALL  WITH  THE  SAME  SPACING  FROM  THE  SECT 
LEADING  EDGE  ARE  OF  THE  SAME  ICTYPE .  BEGIN  WITH  A  TY 
1  AND  WORK  IN  SEQUENCE,  2 ,3 ,...( ASCENDING  ORDER  ). (I)" 
A  MAXIMUM  OF  10  SECTION  TYPES  IS  ALLOWED." 


ICTYPE(K) 


1,NR0WS 

WRITE! 6,22  1    K,NROWS 

READI5,    ^     I    ICTYPE(K1 

IFdCTYPEIK)    .GT.    NWTYPE  )    NWTYPE 

IF(NWTYPE     .GT.    8)    THEN 
WRITE16,21)    NWTYPE 

PRINT    *,     *  A   MAXIMUM   OF    10   SECTION   TYPES   IS   ALLOWED." 

PRINT    *,     '  ^¥:**¥:    WARNING    *****' 

PRINT    *,     "  YOU   MAY    ENTER   ONLY   ONE    MORE    DIFFERENT   TYPE. 

END  IF 

21  FORMAT ( IX, 5X,26HNUMBER  OF  WING  ROW  TYPES  =,I3) 

22  FORMATdX,'   ENTER  SECTION  TYPE  FOR  SECTION  ",12,"  OF  ",I2," 
+ONS . ' , / ) 

ZU   CONTINUE 

SUMriARY  OF  WING  SECTION  TYPE  INPUT  DATA 


SECTI 


CALL  CLRSCRN 
WRITE  (6,26) 

26  FORMAT  (IX, 'SUMMARY  OF  WING  SECTION  TYPE  INPUT  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YESi  2  =  NO  I 

CALL    QUERY    ( fJANS  ) 

IF  (NANS.GE.2 )  GO  TO  25 

WRITE  (fa, 27) 

WRITE  (6,29)  (K,ICTYPE(K),K=1,NR0WS) 

WRITE  (6,161 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l  I  GO  TO  23 

27  FORMAT  (1X,7X,'THE  WING  SECTION  TYPE  DATA  IS:') 

29  FQRMAT( IX, 5X, 'SECTION  =' ,12 ,5X, "SECTION  TYPE  =',I2) 

25  CONTINUE 

WRITE  DATA  TO  FILE 

WRITE (LUN,  301  )  ( ICTYPE( K  )  ,K=1 ,NROWS  ) 
301  FORMAT(<+0I2  I 


NUMBER  OF  CHCRDWISE  WING  ELEMENTS  CARD 


CALL   CLRSCRN 
PRirJT    * 


CHORDWISE  WING  ELEMENTS' 


==>  ENTER  NI,  THE  NUMBER  OF  CHORDWISE  WING  EVD  ELEMENTS' 
FOR  EACH  WING  SECTION  TYPE.  THE  NUMBER  OF  ELEMENTS  M 

BE  ENTERED  IN  ASCENDING  ORDER  BY  ICTYPE.  THERE  MAY  B 

FEW  AS  2  ELEMENTS  PER  SECTION  TYPE  OR  AS  MANY  AS  20. 


(NIN  .GT. 


20)  )  THEN 
2  AND  A  MAXIMUM  OF  20' 


ELEMENTS  ARE  ALLOWED. 
PLEASE  REENTER' 


PRINT  ¥:, 

PRiriT    * 
PRirJT    *, 
PRItJT    *, 
+UST  ' 

PRINT   *, 
+E    AS' 

PRINT  *, 
+  (I  )• 
33  PRINT  * 

DO    50   N    =    1, NWTYPE 
WRITE ( 6,32  )    N,NWTYPE 
28    READ(5,    *     )    NI(N) 
NIN    =    NKNl 
IF((NIN    .LT.     2)     .OR. 
WRITE(6,31  )    NIN 
PRINT    *,     '  A    MINIMUM   OF 

PRINT    *, 
PRINT    *. 
GO    TO    Zh 
END    IF 

31  FORMAT( 1X,5X,36HNUMBER  OF  ELEMENTS  IN  THIS  SECTION  =,I3) 

32  FORMATdX,'   ENTER  NUMBER  OF  EVD  ELEMENTS  FOR  ICTYPE  ',12,'  OF  '  ,1 
+  2,/) 

30  COt^TINUE 

SUMMARY  OF  CHORDWISE  WING  ELEMENTS  INPUT  DATA 

CALL  CLRSCRN 
WRITE  (6,36) 

36  FORMAT  (IX, 'SUMMARY  OF  CHORDWISE  WING  ELEMENTS  INPUT  DATA?", 
1/,1X,2SH==>  ENTER  1  =  YES>  2  =  NO) 

CALL  QUERY  (NANS  ) 

IF  (NANS.GE.2  )  GO  "0  35 

WRITE  (6,37) 

WRITE  (6,39)  (N,NI(N),N=1, NWTYPE) 

WRITE  (6,16) 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l )  GO  TO  33 

37  FORMAT  (1X,7X,'THE  CHORDWISE  WING  ELEMENTS  DATA  IS:") 

39  FORMAT dX,5X, 'SECTION  =" ,12 ,3X, "CHORDWISE  ELEMENTS  =",I2) 

35   COfJTINUE 

WRITE  DATA  TO  FILE 

WRITE(LUN,  301  )  ( NI ( N  )  ,N=1 ,NWTYPE ) 

READ  THE  CHORDWISE  DIVISION  DATA  FOR  EACH  ROW  TYPE 

WING  CHORDWISE  ELEMENT  COORDINATES  CARD 


CALL  CLRSCRN 
PRINT  * 
PRINT  *,  " 
PRINT  * 


WING  CHORDWISE  ELEMENT  COORDINATES" 
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■■  =  >   ENTER  XBW,  THE  CHORDWISE  COORDINATE  OF  EACH  VORTEX  P 


THE  VORTEX  POINT  IS  DEFINED  AS  THE  LEADING  EDGE  FOR' 
LEADirJS  EDGE  EVD''S  AND  THE  "PEAK"  POINT  FOR  REGULAR,' 
HIt;SE  AND  JET  EVD'  'S.  ' 
A  SET  OF  COORDINATES  IS  REQUIRED  FOR  EACH  WING  SECTI 

THE  NUMBER  OF  OF  COORDINATES  WILL  CORRESPOND  TO  THE 

OF  ELEMENTS  ENTERED  ON  THE  PREVIOUS  CARD.' 

THE  LEADING  EDGE  COORDINATE  HUST  BE  0.0  AND  WILL  AUT 


PRINT  *, 
+01 NT. • 

PRINT  *, 

PRINTS*,* 

PRINT  *, 

PRINT  *, 
+0N  TYPE. 

PRINT    *, 

+rrj;iBER' 

PRINT  M, 
PRINT  *, 
+OMATICALLY' 

PRINT  *,     '  BE  ENTERED  FOR  YOU.  THE  LAST  VALUE  MUST  BE  LESS  THAN 

+  1.0. (RV 
PRINT  ^ 

DO  50  N  =  1,NWTYPE 
NIN  =  NI(N) 
XBW( 1,N1  =  0.0 

DO  <+£  L  =  2, NIN 
WRITE(6,42)  N 
WRITEfej-iS)  L.NIN 
et6  READ(5>  *  )  XBW(  L,N) 

XBKN  =  XBW( L,N) 
IF((XBWN  .LT.  0.0)  .OR.  ( XBWN  .GE.  1.0))  THEN 

WRITE (6,41)  XBWN 
PRINT  *,  '     COORDINATE  VALUE  MUST  LIE  BETWEEN  0.0  AND  1.0' 
PRINT  *,  •  PLEASE  REENTER' 

GO  TO  <+6 
END  IF 
45     CONTINUE 

CALL  CLRSCRN 
PRINT  * 

PRINT  *,  '   ***  LEADING  EDGE  VALUE  OF  0.0  ENTERED  FOR  EVD', 
+  '  ELEMENT  1  *** ' 

50  CONTINUE 

41  FORMAT! IX, 5X,30HCHORDWISE  ELEMENT  COORDINATE  =.F10.6) 

42  FORMAT!  IX,'   FOR  WING  SECTIOrJ  TYPE  NUMBER  ',12  1 

4S  FORflATdX,'   ENTER  CHORDWISE  COORDINATE  FOR  EVD  ELEMENT  ',12,'  OF 

!':i2,/_) 

C   SUMMARY  OF  CHORDWISE  ELEMENT  COORDINATE  INPUT  DATA 

C 

CALL  CLRSCRN 
WRITE  (6.47  1 
47    FORMAT  (IX, 'SUMMARY  OF  ELEMENT  COORDINATE  INPUT  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YES>  2  =  NO ) 
CALL  QUERY  (NANS) 
IF  (NANS.GE.2)  GO  TO  60 

54  CALL  CLRSCRN 
WRITE  (6,48)  NWTYPE 
READ  (5,*)  NSEC 

WRITE  (6,49)  (L,XBW(L, NSEC ), L  =  1,NI( NSEC  )) 
WRITE  (6,16) 
CALL  QUERY  (NANS) 
IF  (NANS.EQ.l  )  THEN 
N  =  NSEC 
NIN  =  NKN) 
XB;^(  1,N)  =  0.0 
DO  55  L  =  2, NIN 

WRITE(6,42 )  NSEC 
WRITE (6,43)  L,NIN 
56       READ(S,  *  )  XBN( L,N) 
XBl'irJ  =  XBW(  L,N) 
IF((XBWN  .LT.  0.0)  .OR.  (XBWN  .GE.  1.0))  THEN 

WRITE (6,41)  XBWN 
PRINT  *,     •  COORDINATE  VALUE  MUST  LIE  BETWEEN  0.0  AND  1.0' 

PRINT  *,  '  PLEASE  REENTER' 

GO  TO  56 
END  IF 

55  CONTINUE 
GO  TO  50 

ELSE 

PRINT  *,  '  DO  YOU  WISH  TO  CHECK  ANOTHER  SECTION?' 

PRINT  *,  '  ==>  ENTER  1  =  YESi  2  =  NO' 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l)  GO  TO  54 
CONTINUE 
END  IF 

48  FORMAT  ( IX, 7X, 'WHICH  SECTION  TYPE  DO  YOU  WANT  TO  LOOK  AT?' 
1, /, IX, 7X, 'ENTER  A  VALUE  BETWEEN  1  AND  ',12,'.') 

49  FORMAT  ( IX, 5X, ' ELEMENT  NUMBER  = ' ,12 ,3X, ^COORDINATE  =',F10.6) 
60  CONTINUE 

C   DEFINE  THE  NUMBER  OF  CHORDWISE  DIVISIONS  FOR  EACH  ROW,  USED  LATER 

DO  70   K  =  l.NROWS 

ICK  =  ICTYPE(K) 

NW(K)  =  NI(ICK) 
70  CONTINUE 
C   WRITE  DATA  TO  FILE 

DO  80  N  =  1, NWTYPE 

NIN  =  NKN) 

WRITE(LUN,  18  )  ( XBW( L ,N ) ,L  =  1 ,NIN  ) 
80  CONTINUE 
C 

IR  =  1 

RETURN 

END 

SUBROUTINE  INPUTJ(IR) 
C 
C  THIS  SUBROUTINE  READS  THE  JET  ELEMENT  GEOMETRY  INPUT 
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THE   NUMBER   AND   CHORDWISE    SPACING   OF   THE    JET   ELEMENTS   ARE    READ 

COMMON/MATHEW/rJCASES,ISYHM,IPRINT,JETFLG,IGTYPE,IHINGE 
C0Mt1QN/MARK/NRC:;S  ,rjROWSJ  ,f!NT  ,NJT  ,N,'1&X  .NW(  40  )  ,NJ( -+0  I  ,IW(  40  )  ,IJ(  40  ) 
COMi;0N/SGl/X&W( 20,10  i,XBJ( 20,10  )  .ICTYPEI 40  )  ,IJTYPEl 4o  ) , 
1  NWTYPE,NJTYPE 

COMMON/INDAT/LUN 
DIMENSION   Nil  10  I 

READ  THE  TYPE  OF  DIVISION  FOR  EACH  ROW 
10  NJTYPE  =  0 


NROWSJ  =  0 
IFIJETFLG 


NE.  0)  GO  TO  90 


JET  SECTION  TYPE  CARDS 


CALL  CLRSCRN 

PRINT  * 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 
+NES' 

PRINT 
+UMBER' 

PRINT 


TO' 


PRINT 
+  ,'  ARE 
PRI 


JET  SECTION  TYPE  NUMBERS' 

THIS  IS  VERY  SIMILAR  TO  THE  HING  SECTION  TYPE  DATA' 
COMPLETED  PREVIOUSLY.' 

THE  ARRANGEMENT  OF  JET  ELEMENTS  IN  A  SECTION  DETERMI 

THE  JET  SECTION  TYPE.  ANY  SECTIONS  HAVING  THE  SAME  N 

OF  ELEMENTS,  ALL  WITH  THE  SAME  SPACING  HITH  RESPECT' 

THE  WING  SECTIONAL  CHORD  TO  WHICH  THEY  ARE  ATTACHED' 

OF  THE  SAME  TYPE.  BEGIN  WITH  A  TYPE  NUMBER  OF  1  AND' 

IN  SEQUENCE,  2 ,3, ...( ASCENDING  ORDER).' 

A  SECTION  WITH  NO  JET  HAS  A  TYPE  OF  0  (ZERO).' 

A  MAXIMUM  OF  10  JET  SECTION  TYPES  IS  ALLOWED.  THERE" 
IS  A  REQUIREMEtJT  THAT  THE  SECTIONS  WITH  JETS  AND' 
WITHOUT  JETS  MUST  BE  IN  GROUPS  OF  THREE  OR  MORE.' 


'=  =  >  ENTER  IJTYPE,  THE  TYPE  NUMBER  OF  EACH  JET  SECTION.  (I 


[NT  *, 
+  , '  WORK' 

PRINT  ¥:, 

PRINT  * 

PRINT  *, 

PRINT  * 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  * 

PRINT  *, 

+  !  ■ 

20  PRINT  * 

DO  25  K  =  1,NR0WS 

WRITE(6,32  )  KjNROWS 

READi 5,  *  )  IJTyPE(K) 

IF(IJTYPE(K)  .GT.  NJTYPE  1  NJTYPE  =  IJTYPE(K) 

IF(IJTYPEIK)  .NE.  0)  NROWSJ  =  NROWSJ  +  1 

IF( NJTYPE  .GT.  8  1  THEN 

WRITE! 6,31  )  NJTYPE 

PRINT  *,  '     A  MAXIMUM  OF  10  JET  SECTION  TYPES  IS  ALLOWED.' 

PRINT   ^,     '  iT*¥r*¥:   WARNING   ^**^** ' 

PRINT  ^y     '  YOU  MAY  ENTER  ONLY  ONE  MORE  DIFFERENT  TYPE.' 

END  IF 

21  FORMAK  lX,5X,2<?HNUriBER    OF    JET    SECTION    TYPES    =  ,13  ) 

32    FORMAT! IX,'       ENTER    JET    SECTION    TYPE    FOR    SECTlOtJ     ',12,'    OF     ',12,'    S 

+  ECTIOriS.  '  ,/) 
25   CONTINUE 

SET  UP  FOR  ROW  CONSISTENCY  CHECK 

DEFINE  THE  NUMBER  OF  CHORDWISE  DIVISIONS  FOR  EACH  ROW 

DO  80   K  =  1,NR0HS 

N  J  (  K  I  =  0 

IF(IJTYPE(KI  .EQ.  0)  GO  TO  80 

UK  =  IJTYPE  IK  ) 
70  NJ(K  I  =  NI(IJK) 
80  CONTINUE 
CHECK  FOR  ROW  CONSISTENCY  ON  EITHER  SIDE  OF  JET 

ICOUNT  =  " 

I F  (  N  J  (  1  ) 

IF(NJ(  1  I 

DO  150  K 

IFINJIK  ) 

I F  (  N  J I  K  ) 

IF(ICO;'P 

IF( ICOUNT 

ICCUrJT  = 

IFCNJIK) 

I F  (  N  J  (  K  ) 

GO  TO  150 
160  ICOUNT  =  ICOUNT 
150  CONTINUE 

IF( ICOUNT  .LT.  3)  GO  TO  170 

GO  TO  190 


1 

.FQ. 

0  1ITEST    =    0 

.(^I  . 

0  IITEST    =    1 

=    2, 

NROKS 

:^?: 

0  IICOMP    =    0 

0  IICQ'IP    -    1 

.FO. 

ITEST  )G0   TO    160 

.LT 

1 

.    3  )G0    TO    170 

0  )ITEST    =    0 

0)ITEST    =    1 

+  1 


AN  ERROR  HAS  OCCURED. 


170  PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *,  ' 
GO  TO  20 

190  CONTINUE 


PRINT  A  MESSAGE  AND  ENTER  DATA  AGAIN. 


ROW  CONTINUITY  RULE  FAILURE] I' 
REVIEW  YOUR  JET  SECTION  DATA.  JET  SECTIONS  MUST  BE' 
IN  GROUPS  OF  3  OR  MORE  AND  THERE  MUST  BE  AT  LEAST  3' 
UNBLOWN  WING  SECTIONS  INBOARD  OR  OUTBOARD  OF  ANY  JET.' 


SUMMARY  GOES  HERE 


NUMBER  OF  CHORDWISE  JET  ELEMENTS  CARD 
CALL  CLRSCRN 
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PRINT  * 

PRItJT  *,  ■     CHORDWISE  JET  ELEMENTS' 

PRINT  *,  ■==>  ENTER  NI ,  THE  NUMBER  OF  CHORDWISE  JET  EVD  ELEMENTS' 
PRINT,*,  •     FOR  EACH  JET  SECTION  TYPE.  THE  NUMBER  OF  ELEMENTS  ', 

*Pr'iNT  *,     '  BE  ENTERED  IN  ASCENDING  ORDER  BY  IJTYPE.  THERE  MAY', 

+'  BE  AS' 

PRINT  *,     '  FEW  AS  2  ELEMENTS  PER  SECTION  TYPE  OR  AS  MANY  AS  10' 

+  ,•.(!)' 

C   READ  THE  r,"JMBER  OF  CHORDWISE  DIVISIONS  (ELEMENTS)  IN  EACH  ROW  TYPE 
DO  50  N  =  1,NJTYPE 
WRITE(b,22 )  NjNJTYPE 
28   READ(5,  *  )  NI  (  N ) 
NIN  =  NI(N) 
IFKNIN  .LT.  2)  .OR.  (NIN  .GT.  10))  THEN 

WRITEI6,21)  NIN 

PRINT  ii,     •  A  MINIMUM  OF  2  AND  A  MAXIMUM  OF  10' 

PRINT  *,  '        ELEMENTS  ARE  ALLOWED.' 

PRINT  *,  '  PLEASE  REENTER' 

GO  TO  26 
END  IF 

21  FORMAT {  IX, SXf'+OHNUMBER  OF  JET  ELEMENTS  IN  THIS  SECTION  =.I5) 

22  FORMATdX,'   ENTER  NUMBER  OF  JET  ELEMENTS  FOR  IJTYPE  ',1^,'  OF  ',1 
+  2,/) 

20  CONTINUE 
C 

C  SUMMARY  GOES  HERE 
C 

C 

C   JET  CHORDWISE  ELEMENT  COORDINATES  CARD 

C 

CALL  CLRSCRN 
PRINT  yi 

PRINT  *,  '     JET  CHORDWISE  ELEMENT  COORDINATES' 
PRINT  * 

PRItJT  *r,     •  A  SET  OF  COORDINATES  IS  REQUIRED  FOR  EACH  JET  ', 

♦'SECTION  TYPE. ' 

PRINT  ^,     '  THE  NUMBER  OF  OF  COORDINATES  WILL  CORRESPOND  TO  ', 

+'THE  NUMBER' 
PRINT  *,  '     OF  ELEMENTS  ENTERED  ON  THE  PREVIOUS  CARD.' 
PRINT  *,     '  THE  FIRST  PEAK  POINT  FOR  EACH  JET  SECTION  OCCURS  ', 

+'AT  THE' 

PRINT  *,  •     TRAILING  EDGE.  ITS  COORDINATE  MUST  BE  1.0  AND  WILL', 
+'  AUTOMATICALLY' 
PRINT  *,  '     BE  ENTERED  FOR  YOU.  THERE  IS  NO  MAXIMUM  VALUE.' 
PRINT  •* 

PRI^JT  *,  •==>  ENTER  XB J ,  THE  CHORDWISE  COORDINATE  OF  EACH  VORTEX', 
+'  POINT. ' 

PRINT  *,  '     THE  VORTEX  POINT  IS  DEFINED  AS  THE  "PEAK"  POINT  ', 
+'FOR  JET  EVD' 'S.(R)' 
PRINT  s^ 
C   READ  THE  CHORDWISE  DIVISION  DATA  FOR  EACH  ROW  TYPE 
DO  50  N  =  1,NJTYPE 
NIN  =  NKN) 
XBJ( 1,N)  =  1.0 

DO  "+5  L  =  2, NIN 

WRITE(6,42)  NJTYPE 
WRITEl  6,-^5)  L,NIN 

PRINT  *,  '     NOTE:  THIS  IS  WITH  RESPECT  TO  THE  CHORD  OF  ', 
+  'THIS  SECTION. ' 

^6       READ(5,  *  )  XBJ( L,NJ 
XBJN  =  XBJ( L,N) 
IF(XBJN  .LE.  1.0)  THEN 
WRITE(6,'tl  )  XBJN 

PRINT  *,     '     COORDINATE  VALUE  MUST  BE  GREATER  THAN  1.0' 
PRINT  *,  '  PLEASE  REENTER' 

GO  TO  ^o 
END  IF 
PRINT  * 
45     CONTINUE 
50  CONTINUE 

<+I  FORMATi 1X,5X,30HCHORDWISE  ELEMENT  COORDINATE  =,F10.6) 
<+2  FORMAKIX,'   FOR  JET  SECTION  TYPE  NUMBER  ',12  1 

43  FORMATdX,'   ENTER  CHORDWISE  COORDINATE  FOR  JET  EVD  ELEMENT  ',12, 
+  •  OF  '  ,12,/) 

C   SUMMARY  GOES  HERE 
C 

IR  =  1 

RETURN 
C 

C   THERE  IS  NO  JET  FOR  THIS  RUN 
90  DO  100  K  =  l.NROWS 

IJTYPE(K)  =  0 

NJ(K  )  =  0 
100  CONTINUE 

IR  =  1 

RETURN 

END 

SUBROUTINE  XLETRKIR) 
C 

C  THIS  SUBROUTINE  READS  THE  LEADING  AND  TRAILING  EDGE  COORDINATES  AT 
C   SPANWISE  STATIONS  CONNECTED  BY  STRAIGHT  LEADING  AND  TRAILING  EDGES. 
C  THE  MAIN  PROGRAM  INTERPOLATES  TO  GET  COORDINATES  FOR  INTERMEDIATE 
C   SECTIONS 


C 


C0t1M0N/MARK/NR0WS,NR0WSJ ,NWT ,NJT ,NMAX,NW( 40 ) ,NJ( 40 ) ,IW( 40 ) ,IJ( 40 ) 
COMMON/GEOMI/Yl 40 ) ,CHORD( 40 ) ,DELTA( 40 ) ,XB( 600 ) ,XI(  600 ) ,DEL(  600 ) , 
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1  D(^0),KK(600),ITYPE(6001 

C0MM0N/GE0M2/XLEAD(  "^0  )  ,XTRAlL( 40 ) ,TANLE(  40 ) ,TANTE(40 ) 
COMKOt-l/IN'DAT/LUIJ 
DIMErJSION   YP('+0),XLE('fO),XTR(40  ) 


LEADING  AND  TRAILING  EDGE  COORDINATES 


CALL  CLRSCRN 
PRINT  * 


PRINT  *, 
PRINT  ^ 
PRINT  *, 

PRINT  *, 


PRINT 
PRINT 


PRINT  *, 


PRINT 
PRINT 


PRINT  *, 
I^RINT  *, 


LEADING  AND  TRAILING  EDGE  COORDINATES' 
FOR  A  WING  OF  ARBITRARY  PLANFORM' 

:>  ENTER  AS  A  MINIMUM  THE  COORDINATES  FOR  THE  TIP  AND", 

'  ROOT  SECTIONS. ' 

COORDINATES  ARE  ALSO  REQUIRED  FOR  SECTIONS  WHICH  " , 
'DEFINE  A' 

BREAK  IN  THE  LEADING  OR  TRAILING  EDGES.' 

THE  COORDINATES  REFER  TO  THE  CHORDWISE  DISTANCE,  ', 

'MEASURED  AT' 

THE  SECTION  CENTERLINE,  FROM  THE  Y-AXIS  TO  THE  ', 

'RESPECTIVE  EDGE' 

IN  UNITS  OF  SPAN. ' 

THE  PROGRAM  ASSUMES  A  STRAIGHT  EDGE  EXISTS  BETWEEN', 
•  SECTIONS' 

ENTERED  HERE  AND  WILL  INTERPOLATE  BETWEEN  THE  INPUT' 
'  VALUES. ■ 

THE  SECTION  CENTERLINE  COORDINATE  IS  AUTOMATICALLY', 
'  WRITTEN' 

TO  THE  DATA  FILE  FROM  YOUR  PREVIOUS  INPUT. (R,R)' 


PRINT  *, 
PRINT  * 
5  NX  =  0 
C   READ  NUMBER  OF  SECTIONS  TO  INPUT 

9  PRINT  «,  '     HOW  MANY  WIL'G  SECTIONS  WILL  YOU  BE  ENTERING', 
+  '  COORDINATES  FOR?' 

10  READ(5,  *  )  NSECT 

IF  (NSECT.  GT.  NRO'WS )  THEN 
WRITE  I  6,11 )  NR0W3 
PRINT  *,  '        PLEASE  REENTER' 
GO  TO  l6 

END  IF 
C   CHArJGE  TO  CORRECT  NSECT  IF  IMPROPER  VALUE  ENTERED 

PRINT  * 

KRITE(6,21  )  NSECT 

WRITE  (6,16  1 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l  I  GO  TO  9 
C   READ  XLEAD  AND  XTRAIL 

PRINT  *,     •  BEGIN  AT  TIP  AND  WORK  IN.   TIP  SECTION  =  1." 

PRINT  * 

DO  50  N  =  1, NSECT 

IF  (N  .NE.  1  I  CALL  CLRSCRN 

WRITE(6,46)  N, NSECT 
20  READ(5,  *  )  I 
C  RETRIEVE  AND  PRINT  CENTERLINE  COORDINATE  DATA 

YP(N  I  =  Yd  ) 

WRITE( 6,42  )  I 

WRITE( 6,43)  YP(N) 

PRirjT  * 

WRITE(6,44)  I 

READ(5,  ^     )    XLE(N) 

PRINT  * 

WRITE (6,45)  I 

READ(5,  *  )  XTR(N) 

PRINT  * 

30  CONTINUE 

11  FORMAT( 1X,5X, 'THE  NUMBER  OF  SECTIONS  MUST  NOT  BE  MORE  THAN  ',12,/) 

31  FORMAT(  1X,5X. 'THE  NUI1BER  OF  SECTIO.'JS  YOU  WILL  BE  ENTERING  DATA' 
1, '  FOR  IS  ' ,12  ) 

41  FORMAK 1X,5X,30HCHORDWISE  ELEMENT  COORDINATE  =,F10.6) 

42  FORriATdX,'   FOR  SECTION  (ROW)  NUflBER  ',12  1 

43  FORMATdX,'   SECTION  CENTERLINE  COORDINATE  =  ',F10.6) 
ENTER  THE  LEADING  EDGE  COORDINATE  FOR  SECTION  ',12  1 
ENTER  THE  TRAILING  EDGE  COORDINATE  FOR  SECTION  ',12) 
ENTER  THE  WINS  SECTION  NUMBER  ASSOCIATED  WITH  ' 


44  FORMAT( IX, ' 

45  FORMAT ( IX, ' 

46  FORMAT ( IX  " 


1, 'COORDINATE  SET  ',12,'  OF  ',12,/) 


;   SUMMARY  OF  LEADING  AND  TRAILING  EDGE  COORDINATES  DATA 

CALL  CLRSCRN 
WRITE  (6,47) 
47    FORMAT  (IX, 'SUMMARY  OF  LEADING/TRAILING  EDGE  COORDINATE  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YESj  2  =  NO ) 
CALL  QUERY  (NANS) 
IF  (NANS.GE.2)  GO  TO  60 

WRITE  (6,48) 

WRITE  (6,49) 

WRITE  (6,52)  (YP(N),XLE(N),XTR(N),N=1, NSECT) 

WRITE  (6,16) 

CALL  QUERY  (NANS) 

IF  (NANS.EQ.l )  GO  TO  5 

48  FORMAT  (1X,7X,'THE  COORDINATE  DATA  IS:',/) 

16  FORMAT  (//,1X,'D0  YOU  WISH  TO  CHANGE/REENTER  THIS  INPUT  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YESv  2  =  NO  ) 

49  FORMAK 1X,5X, 'CENTERLINE' ,5X, 'LEADING  EDGE ' ,3X, 'TRAILING  EDGE',/) 
52  FORMAT(5(SX,F10.6)  ) 

60  CONTINUE 
:   WRITE  DATA  TO  FILE 

DO  70  N  =  1, NSECT 

WRITE(LUN,  101  )YPIN),XLE(N),XTR(N) 
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101  FORMAT! 3F10. 6) 
70  CONTINUE 

C  OUTPUT  A  9  CARD  AFTER  NSECT  SETS  OF  COORDINATES  HAVE  BEEN  INPUT 
WRITE! LUN,  102  ) 

102  FORMAT!  '9    '  ) 
C 

IR  =  1 
RETURN 

END 

SUBROUTINE  XLETR2 
C 

C   THIS  SUBROUTINE  READS  THE  FUNDAMENTAL  PLANFORM  PARAMETERS  FOR  A 
C   TRAPEZOIDAL  WING.   NOTE  THAT  THE  PLANFORM  OUTLINE  MUST  BE  SYMETRIC. 
C 

COMMON/MARK/NROWS,NROWSJ ,NWT ,NJT ,NMAX,NW(  <^0  )  ,NJ( 40  )  ,IW( 40  )  ,1 J( 40) 

COMMON/JOHN/  AREA , SPAN, ARATIO.TR, SHEEP ,CREF,CMAC,CBAR .XMC.XCG 

COhMON/GEOMl/Y( 40 ) ,CHORD( 40 ), DELTA! 40 ) ,XB! 600 ) ,XI ! 600 ), DELI  600 ) , 
1  D!40),KKI600  ),ITYPE!600) 

COMMON/GEOM2/XLEAD(40 ) ,XTRAIL! 40  J ,TANLE( 40 ) ,TANTEi  40 ) 

COMMON/INDAT/LUN 
C 

c 

C   TRAPEZOIDAL  WING  PLANFORM  PARAMETERS 

C 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,  •     TRAPEZOIDAL  WING  PLANFORM  PARAMETERS' 

PRINT  *y     '     NOTE:  PLANFORM  MUST  BE  SYMMETRIC 

PRINT  * 
C  CALCULATE  ASPECT  RATIO  FROM  PREVIOUSLY  SUPPLIED  DATA 

ARATIO  =  SPAN  *  SPAN  /  AREA 

PRINT  *,  ■==>  THE  CAICULATED  WING  ASPECT  RATIO,  ARATIO  =',  ARATIO 

GO  TO  15 
•lO  PRINT  * 
C   i^EAD  THE  FUNDAMENTAL  PLANFORM  PARAMETERS 

PRINT  *,  '==>  ENTER  THE  WING  ASPECT  RATIO,  ARATIO  (R)." 

READ  !5,*)  ARATIO 

15  PRINT  »^ 

PRINT  *,     •==>  ENTER  SWEEP,  THE  SWEEP  ANGLE  OF  THE  QUARTER-CHORD' 

PRINT  *,     '  LINE,  IN  DE!SREES. !  R  ) ' 

READ  IS,*)    SWEEP 

PRINT  * 

PRINT  *,  '==>  ENTER  TR,  THE  WING  TAPER  RATIO.  THIS  IS  DEFINED  AS' 

PRINT  *,     '  THE  CHORD  AT  THE  WING  TIP  DIVIDED  BY  THE  CHORD  AT' 

PRINT  *,     '  THE  AXIS  OF  SYMMETRY,  THE  WING  ROOT . ( R  )  ' 

READ  (5,*)  TR 

PRINT  * 
C 
c 

C   SUMMARY  OF  TRAPEZOIDAL  WING  PLANFORM  PARAMETERS  INPUT  DATA 

C 

CALL  CLRSCRN 
WRITE  !e,ll) 

11  FORMAT  !lX, 'SUMMARY  OF  TRAPEZOIDAL  PLANFORM  PARAMETERS  DATA?', 
1/,1X,25H==>  ENTER  1  =  YES>  2  =  NO) 

CALL  QUERY  ( NANS  1 

IF  IN£NS.GE.2)  GO  TO  20 

PRINT  * 

WRITE  !6,12)  ARATIO, SWEEP, TR 

WRITE  !6,lb) 

CALL  QUERY  !NAfs'S) 

IF  INANS.EQ.l  )  GO  TO  10 

12  FORMAT  IIX.'ASPECT  RATIO  = ' ,F10 . 6 ,5X, 'SWEEP  =',F10.6, 
13X, 'TAPER  RATIO  =',F10.6,/) 

16  FORMAT  !//,lX,'DO  YOU  WISH  TO  CHANGE/REENTER  THIS  INPUT  DATA?', 
1/,1X,25H  =  =  >  ENTER  1  =  YESj  2  =  NO  J 

20  c6NTIf;UE 
C   WRITE  TO  DATA  FILE 

WRITE! LUN,  100  )  ARATIO, SWEEP ,TR 
100  FORMAT! 3FlO. 6) 
C 

C   PROCESS  VALUES  FOR  USE  BY  CHECKING  ROUTINES 
C 
C   COMPUTE  THE  GENERAL  PLANFORM  CHARACTERISTICS 

B2  =  SPAN  /  2.00 

SW  =  SHEEP  /  57.295779 

CROOT  =  2.0  *  SPAN  /  ! ! 1 . 0+TR  )*ARATIO ) 

AREA  =  ll.O+TR)  *  CROOT  *   B2 

XLB2  =  0.250  *  ll.O-TR)  *  CROOT  +  B2  *  TAN(SW) 

CMAC  =  2.0  *  CROOT  »  11.0  +  TR  +  TR*TR  )  /  ( 5 . 0*( 1 . 0+TR ) ) 

IF!CREF  .EQ.  0.0)  CREF  =  CMAC 

CBAR=AREA/SPAN 
C 
C  COMPUTE  THE  LEADING  AND  TRAILING  EDGE  COORDINATES 

DO  60  K  =  1,NR0WS 

YBAR  =  Y!K ) 

IF!YBAR  .LT.  0.0)  YBAR  =  -YBAR 

XLEAD!K)  =  XLB2  *  YBAR 

C  =  CROOT  *  I 1.0-I1.0-TR)*YBAR) 

XTRAIL!K)  =  XLEAD(K)  +  C 
60  CONTINUE 
C 

RETURN 

C»*X»X»  jf  *^?»^^»*»*»9HHt  Jt»)HHtJt»XjHMf  Jt»»»j(X»X  JHt*X»»*»»*»JHHf*»»**X  X  XKXXX*XXXXX 

END 

SUBROUTINE  NORMl 
C 

C  THIS  SUBROUTINE  NORMALIZES  ALL  WING  PLANFORM  GEOMETRY  BY  SPAN/2 
C 
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COMMON/MARK/NROWS,NPOWSJ ,hJWT ,NJT ,NMAX,NW( UO  )  .NJ( ^0  )  ,IW( ^0  )  ,IJ( ^0  ) 

COflMON/JOHN/   AREA, SPAN, ARATI6,TR,SKEEP,CREF,CMAC,CBAR,XMC.XCG 

coriMON/GEo;ii/Y(  "+0  I  ,cncr:D(  "+0  i  .delt ai  "+0  ^  ,xbi  660 )  ,xi(  boo  i  ,del(  600 ) , 

1  DC^O  I,KK1600  IjItYPEI  feOO  I 

COriM0N/GEOM2/XLEADU0  )  ,XTRAIL(  <+0  J  ,TANLE  (  40  )  ,TANTE(  <^0  ) 
10   B2    =    SPAtg   /    2.00 

AREA  =  AREA  /  B2**2 
CREF  =  CREF  /  B2 
20  Xnc  =  XMC  /  B2 
XCG  =  XCG  /  B2 
DO  40  K  =  l.MROWS 
30  XLEAD(K)  =  XLEADIK)  /  B2 

XTRAIL(K)  =  XTRAIL(K)  /  B2 
40  CONTINUE 

SPAN  =2.00 

ARATIO  =  SPAN  *  SPAN  /  AREA 
RETURN 
C****s^^^**«^*********************»*«*****»****»**»**»** ***************** 
END 

SUBROUTINE  BOXS( IR  ) 
C 

C   THIS  SUBROUTINE  CONSTRUCTS  THE  GEOMETRIC  PARAMETERS  FOR  ALL  THE 
C   EVD  ELEMENTS  ON  THE  WING  AND  JET 
C 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/HARK/NROHS,NROWSJ ,NHT ,NJT ,Nf1AX,NW( 40  )  ,NJ( 40  )  ,IW( 40 ) ,IJ( 40 ) 

corinoN/JOHrj/  area, span, aratio.tr, sweep, cref,cmac,cbAr,xmc.xcg 

C0MI10N/GE0M1/YI 40  ) , CHORD ( 40  )  ,DELTA( 40 ) ,XB( 60O ) ,XI(  600 ) ,DEL(  600 ) , 

1  D140  ),KK(600),ITYPE(600 I 

COMMON/GEOM2/XLEAD(40  I  ,XTRAlL( 40  )  ,TANLE ( 40  )  ,TANTE ( 40  ) 
C0MM0N/SG1/XBW( 20 ,10  )  ,XBJ( 20 ,10  )  ,ICTYPE( 40  )  ,IJTYPEl 40  ) , 

1  NWTYPE,NJTYPE 

C   CONSTRUCT  THE  ELEMENTS  ON  THE  WING 

C 

C   COMPUTE  SECTIONAL  DATA 

10  CHORDdl  =  XTRAIL(l)  -  XLEAD(l) 

DELTA(  1  I  =  1.00  -  Yd  I 

CMAC  =  CHORDt  11**2  *  DELTAd  ) 

DO  20  K  =  2,NR0WS 
20  CHORD!  K)  =  XTRAIL(K)  -  XLEAD(K) 

DELTA(K)  =  Y(K-l)  -  Y(K)  -  DELTA(K-l) 

IF(DELTA(K)  . LT .  0.0)  GO  TO  1^0 

CMAC  =  CMAC  +  CH0RDIK)**2  *  DELTA(K) 
30  CONTINUE 
C   CHECK  THE  VALIDITY  OF  THE  SECTIONAL  ALLIGNMENT 

YD    =    YftJROWS)    -    DEITA(NROWS) 

IF((ISYM;1    .GE.    O)       and.     (ABS(YD)     .GT.    O.OOODI    GO   TO    190 

IFldSYMM    .EQ.    1)    .AND.     (ABS(YD  +  1.0)    .GT.    0.0001))    GO   TO    190 

CSUM    =    DELT At  11 

DO   55   K    =    2,NR0WS 

YL    =    Y(K)    +    DELTA(K1 

YR    =   Y(K-l)    -    DELTA(K-l) 

IF(ABS1 YR-YL)    .GT.    C.COOl)    GO   TO   190 

DSUM  =  DSUM  +  CELTAIK) 
35  CONTINUE 

IF! ASSlDSUM-0.50)  .GT.  0.0001)  GO  TO  190 

CMAC  =  2.0  *  CMAC  /  AREA 

IFIISYMtl  .LT.  1)  CMAC  =  2.0  *  CMAC 

IFICREF  .LT.  0.0001)  CREF  =  CMAC 

CALL  TANSI TANLE ,XLEAD ,Y ,NROWS  ) 
C   COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 

1  =  0 

CO  90   K  =  1,NR0WS 
C   COMPUTE  X-COORDINATES 

NWK  =  NW(K  ) 

DO  50  L  =  1,NWK 

1  =  1  +  1 

ICK  =  ICTYPEIK) 
40  XB(I )  =  XBWl L,ICK) 
50  CONTINUE 
C   COMPUTE  ALL  OTHER  PARAMETERS 

1=1-  NWK 

IW(K  )  =  I  +  1 

DO  80  L  =  1,NWK 

1  =  1  +  1 
60  KK(I t  =  K 

DELd  )  =  XBd  +  1)  -  XB(I) 
70  Xld)  =  XLEADIK)  +  XBII)  *  CHORDIK) 

ITYPEd  1  =  10 
80  CONTINUE 
C   REDEFINE  THE  LAST  DEL  IN  THIS  SECTION,  AND  DEFINE  THE  L.E.  EVD  TYPE 

DELd)  =  1.00  -  XBd  ) 

IKK  =  IW(K) 

ITYPEdWK)    =    20 
90   CONTINUE 

NHT    =    I 
C 

C   CONSTRUCT  THE  ELEMENTS  ON  THE  JET  SHEET 
C 
C   COMPUTE  ALL  CHORDWISE  ELEMENT  PARAMETERS  FOR  EACH  SECTION 

IFIJETFLG  .NE.  0  )  GO  TO  180 

DO  170  K  =  1,NR0WS 
C   COMPUTE  X-COORDINATES 

IJ(K)    =    0 
100   NJK    =   NJ(K) 

IF(NJK    -EQ.    0)    GO   TO    170 

DO    120    L    =    1,NJK 

1=1    +    1 

UK    =    IJTYPE(K) 
110   XBd  )    =   XBJ(L,IJK) 
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120  CONTINUE 
C   COMPUTE  ALL  OTHER  PARAMETERS 

1=1-  NJK 
130  IJ(K  )  =  I  +  1 

DO  160  L  =  1,NJK 

1  =  1  +  1 
1^0  KK(I I  =  K 

DELd  )  =  XB(I  +  11  -  XB(I) 
150  XIII)  =  XLEAD(K)  +  XB(I )  *  CHORD(K) 

ITYPEd  )  =  10 
160  CONTINUE 
C   REDEFirJE  THE  LAST  DEL  AND  EVD  TYPE  AND  THE  D  VALUE  FOR  THIS  SECTION 

DELd  )  =  I.OEIO 

ITYPEd  )  =  SO 

D(K)  =  XI(I)  -  XTRAIL(K) 
170  CONTINUE 
180  NMAX  =  I 

IFINMAX  .GT.  600)  GO  TO  210 

NJT  =  NMAX  -  NWT 

IR  =  1 

RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  QUIT. 
190  WRITE(6,  200  ) 
200  FORMATl  lHl/38X,^4HPLEASE  CHECK  YOUR  SECTION  LOCATION  (Y)  INPUT) 

IR  =  2 

RETURN 

210  WRITE(6,  220  )  NMAX 

220  F0RMAT(iHl/^8X,I^,21H  IS  TOO  MANY  ELEMENTS) 

IR  =  2 

RETURN 

END 

SUBROUTINE  BOXJ( NEWKAX.IR ) 


THIS  SUBROUTINE  COMPUTES  THE  JET  BLOWING  FACTOR  CMUP 


COriMON/MARK/NROWSfNROWSJ.NNT.NJT.NMAX.NWC+Ol.NJf^O  )  ,IW(  (+0  )  ,IJ(  40  ) 
COMMON/GEO;il/Yl  '40  I  ,CHO?D(  40  I  ,DELTA(  40  )  ,XB(  oOO  )  ,XI(  600  ), DEL (600  ) , 
1  D140),KKI 600  ),lfYPE(600) 

COMMON/JCASE/CMU( 40 ) ,CMUP(  40 ) ,CHUPP(  40 ) 

C   COMPUTE  THE  NEW  CMUP  AND  SAVE  THE  OLD  VALUES  AS  CMUPP 
10  NEWriAX  =  NMAX 
ICOUNT  =  0 


DO  30  K  =  IjNROWS 
CMUPP (K )  =  CMUP(K) 


IF(NJ(K  )  .EQ.  0  1  GO  TO  30 
IF(CMU(K)  .LT.  0.0001)  GO  TO  20 
CMUP(K)  =  2.00  /  (CHORD(K)*CMU(K)) 
GO  TO  30 
20  IC0U;JT  =  ICOUNT  +  1 

CMUP(K)  =0.00 
30  CONTINUE 
C 

PRINT  *,  •==>  DO  YOU  WISH  TO  SEE  THE  JET  BLOWING  COEFFICIENTS?' 
PRINT  *,     '  ENTER  (Y  OR  N)' 

35  READ  (5,  MAD"  )  ArJS 
IF  ( ANS.EQ. 'Y' )  THEN 

WRITE! 6,  40  )  IK,CMU(K),K=1,NR0WS) 
ELSE  IF  (ANS.EQ. 'N' )  THEN 

GO  TO  45 
ELSE 

PRINT  *,    •      INVALID  RESPONSE  -  REENTER.' 
GO  TO  35 
END  IF 
1010  F0RMAT(A4) 
C 

40  FORMAT(  lHl,40X,10(4Hi^***)/  41X, 

1  40H*   SECTIONAL  JET  BLOWING  COEFFICIENTS   */41X,10( 4H**** )// 

2  53X,3HROW,5X,3HCMU,40(/53X,I2,F12.6 ) ) 
45  IF( ICOUNT  .EQ.  0)  GO  TO  50 

IF( ICOUNT  .LT.  NROHSJ)  GO  TO  60 
NEWMAX  =  NWT 
50  IR  =  1 
RETURN 
C 

C   AN  ERROR  HAS  OCCURED.    PRINT  A  MESSAGE  AND  TRY  AGAIN. 
60  WRITE! 6,  70  ) 

70  FORMAT! 1H0,43X,35HA  ZERO  VALUE  OF  CMU  HAS  BEEN  INPUT., 
1      33H   THIS  CMU  CASE  HAS  BEEN  IGNORED.) 
IR  =  2 
RETURN 

END 

SUBROUTINE  TANS( TAN,X,Y ,NROWS ) 
C 

C   THIS  SUBROUTINE  COMPUTES  THE  TANGENT  OF  THE  LEADING  OR  TRAILING  EGDE 
C   SHEEP  ANGLE  AT  THE  CENTERLINE  OF  EACH  SECTION.   IT  IS  ACCURATE  FOR 
C   SECTIONS  WITH  STRAIGHT  EDGES  IN  GROUPS  OF  THREE  OR  MORE. 
C   IT  IS  ONLY  APPROXIMATE  FOR  CURVED  EDGES. 

C   IT  MAY  RESULT  IN  ERRORS  FOR  SECTIONS  ADJACENT  TO  WING  BREAKS, 
C  IF  STRAIGHT  EDGES  ARE  IN  ADJACENT  GROUPS  OF  ONLY  ONE  OR  TWO. 
C 

DIMENSION  TAN( 40  )  ,X( 40 ) ,Y( 40 ) ,S( 40 ) 

SLOP(XR,XL,YR,YL)  =  (XR-XL)  /  (YR-YL) 
C 

DO  50  K  =  1,NR0WS 

KR  =  K-1 

KL  =  K 
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IF(K    .GT.    1)    GO   TO   20 

KR    =    1 

KL    =    2 
30   S(K1    =   SLOPlX(KR),X(KL),Y(KR),Y(KL)) 
50   COrJTINUE 

DO    200    K    =    1,NR0WS 

IFIK     .LT.    3  I    GO    TO    150 

IF(K     .EQ.    NROiiSl    GO    TO    150 

IF(K  .EO.  (NROWS-ll)  GO  TO  160 
C   CHECK  WHETHER  THE  RIGHT  OR  LEFT  SIDES  ARE  STRAIGHT 

IF(ABS(S(K)  -  S(K-l))  .LT.  0.001)  GO  TO  150 

IF(ABS(S(K+1)  -  S(K+2))  . LT .  0.001)  GO  TO  160 
C   NEITHER  SIDE  IS  CONCLUSIVELY  STRAIGHT  -  CHECK  FURTHER  LEFT  AND  RIGHT 

IF(K  .EQ.  5  )  GO  TO  IbO 

1F(K  .EQ.  lNROWS-2))  GO  TO  150 

IFl ABSISIK-1  )  -  S(K-2))  . LT .  0.001)  GO  TO  160 

IFl ABS(S(K  +  2  )  -  S(K  +  5))  .LT.  0.001)  GO  TO  150 
C   THE  TRUE  SHAPE  CANNOT  BE  DETERMINED  -  GIVE  UP  AND  TAKE  THE  AVERAGE 

TAN(K)  =  (S(K)  +  S(K+1))  /  2.00 

GO  TO  200 
C   THE  RIGHT  EDGE  IS  STRAIGHT 
150  TAN(K  )  =  S(K) 

GO  TO  200 
C   THE  LEFT  EDGE  IS  STRAIGHT 
160  TANIK  )  =  S(K  +  1) 
200  CONTINUE 

RETURN 

END 

SUBROUTINE  INCASE ( LCASE ,NOALFA ) 


K  W  K  K  ^  X  W  W^TW  WWJIR^XWR  MAX 


THIS  SUBROUTINE  READS  THE  FUNDAMENTAL  GEOMETRIC  CASE  DATA 

CHARACTER*1  ANS 

COMr,Orj/MARK/NP.OWS,NROWSJ  ,NWT  ,NJT  ,NMAX  ,NW(  "^0  )  ,NJ(  <+0  )  ,IW(  <+0  )  ,IJ(  ^0  ) 
COiniON/FCASEl/INTNST .INHITE ,INDELJ .INCAMB .INBETA 

C0KM0N/FCASE2/TWIST(  40  ,10  )  ,HL(  "^0  ,lO  )  ,DJ(  "+6  ,10  )  ,ACTE(  <+0  )  ,AC(  20  ,<+0  ) , 
1  XHB(4,^0),BET('+,40),lFS('+,'+OI,ICT('+0  ),IHTl40  ),NCT,NHf 

COMMON/INDAT/LUN 
DIMENSIOrj  NI(  10), DUMMY (40) 

IF((LCASE  .EQ.  1)  .AND.  (NOALFA  .GT.  O)  RETURN 

CALL  CLRSCRN 
PRINT  * 

WRITE(6,5)  LCASE 
5  FORMAT!  lX,4X, 'FUNDAMENTAL  CASE  CONTROL  FLAGS  FOR  CASE  MZ,'.') 

PRirjT  ¥: 

PRINT  ^,  '==>  THE  FOLLOWING  QUESTIONS  ARE  USED  TO  SET  THE  CONTROL 
+  FLAGS. ' 
PRINT  *, 


+ARIATIONS' 
PRINT  *,  ' 
PRINT  *,  • 

+  1.  ' 
PRINT  * 
PRINT  *,  ' 

+MITTED. ' 
PRINT  * 
PRirJT  ^,  ' 

+  irJCLUDED' 
PRIfJT  *,  ' 

+  F0R(1ATI0N. 
PRINT  * 
10  CONTINUE 


THESE  FLAGS  IDENTIFY  THE  TYPES  OF  LINEAR  GEOMETRIC  V 

TO  BE  INCLUDED  IN  EACH  FUNDAMENTAL  CASE.' 

THE  ANGLE  OF  ATTACK  CASE  IS  ALREADY  INCLUDED  AS  CASE 

A  NO  RESPONSE  INDICATES  THAT  THE  VARIATION  WILL  BE  0 

A  YES  RESPONSE  INDICATES  THAT  THE  VARIATION  WILL  BE 
AND  THAT  YOU  WILL  PROVIDE  THE  REQUIRED  AMPLIFYING  IN 


READ  FUNDAMENTAL  CASE  CONTROL  FLAGS 


PRINT  *r,     '=  =  >  VARY  SPANWISE  TWIST  DISTRIBUTION?  (Y  OR  Nl 
20  READ  (5, '1 Al  )'  )  ANS 
IF  (  ArJS.EQ.  'Y'  )  THEN 

INTkiST    =    LCASE 
ELSE    IF    (ANS.EQ. 'N' )    THEN 


INTWST  = 
ELSE 
PRINT 


INVALID  RESPONSE 


INVALID  RESPONSE 


r  t^  i  i\'  I  ■^ } 

GO  TO  20 
END  IF 
PRINT  * 
PRINT  *,  '==> 
30  READ  (5,  '( Al) 
IF  (ANS.EQ. 'Y 

INHITE  =  LCASE 
ELSE  IF  (ANS.EQ.  'N'  )  THEN 

INHITE  =  0 
ELSE 

PRINT  *, 

GO  TO  30 
END  IF 
PRINT  * 
PRINT  *,  ' 
40  READ  (5, '(Al) 
IF  (ANS.EQ. 'Y 

INDELJ  =  LCASE 
ELSE  IF  (ANS.EQ.  'N'  )  THEN 

INDELJ  =  0 
ELSE 

PRINT  *,  '   INVALID  RESPONSE 

GO  TO  40 
END  IF 


REENTER. 


VARY  LEADING  EDGE  VERTICAL  DISPLACEMENT?  (Y  OR  N)' 

)  ANS 
)  THEN 


REENTER. 


u\ 


=>   VARY  JET  DEFLECTION?  (Y  OR  N)' 
■  ■  )  ANS 
)  THEN 


REENTER. ' 
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PRINT  * 

PRINT  *,  *==>  VARY  THE  HING  CAMBER?  (Y  OR  N)' 
50  READ  (5, ■( Al  )'  )  ANS 
IF  ( ANS.EQ. 'Y'  t  THEN 

INCAM3  =  LCASE 
ELSE  IF  (ANS.EQ. 'N' )  THEN 

INCAMB  =  0 
ELSE 

PRINT  *,  '   INVALID  RESPONSE  -  REENTER." 

GO  TO  56 
END  IF 
PRINT  * 

PRINT  *,  ■==>  VARY  THE  WING  HINGE  DEFLECTION?  (Y  OR  N)' 
60  READ  (5,  '(Air  )  ANS 
IF  (  ANS.E(}.  'Y'  )  THEN 

INBETA  =  LCASE 
ELSE  IF  (ANS.EQ. 'N')  THEN 

INBETA  =  0 
ELSE 

PRINT  *.  '   INVALID  RESPONSE  -  REENTER.' 

GO  TO  60 
END  IF 
PRINT  * 

C~ 

C   SUMMARY  OF  FUNDAMENTAL  CASE  CONTROL  FLAGS  DATA 

C 

CALL  CLRSCRN 
WRITE  (6,580) 

580  FORMAT  (ix, 'SUMMARY  OF  FUNDAMENTAL  CASE  CONTROL  FLAGS  DATA?', 
I/,1X,25H==>  ENTER  Y  =  YES>  N  =  NO) 

READ  (5, ■( Al r  t  ANS 
IF  (ANS.EQ.  'N'  )  GO  TO  70 
CALL  CLRSCRN 
WRITE(6,6)  LCASE 
6     FORHAT( iX,2X, 'CONTROL  FLAGS  FOR  FUNDAMENTAL  CASE  ',12'.') 
PRINT  * 

PRINT  *,  •   A  NONZERO  FLAG  INDICATES  THAT  THE  LINEAR  VARIATION' 
PRINT  *,  '   WILL  BE  INCLUDED.   THE  VALUE  OF  A  NONZERO  FLAG' 
PRINT  «,  *   HAS  BEEN  SET  TO  THE  FUNDAMENTAL  CASE  IN  WHICH  IT' 
PRINT  *,  '   IS  INCORPORATED,  HOWEVER  THIS  CHOICE  IS  ARBITRARY.' 
PRINT  * 
WRITE  (6,581) 

WRITE  (6,582)  INTWST ,INHITE ,INDELJ ,INCAMB , INBETA 
WRITE  (6,590) 
READ  (5,'(  AD'  )  ANS 
IF  (ANS.EQ.  'Y'  )  GO  TO  10 

581  FORMAT  ( IX, 'INTWST' ,5X, ' INHITE ' ,5X, ' INDELJ ' ,5X, ' INCAMB ' ,5X, 
+  * INBETA'  ) 

582  format  ( ix ,5( 2x ,12 ,7x  )  1 

590   format  ( // , ix ,43hchange  fundamental  case  control  flags  data?, 

1/,1x,25h  =  =  >  enter  y  =  yes;  n  =  no ) 
70   c(:ntinue 
c 

C  write  TO  DATA  FILE 

WRITE(LUN,  601  )  INTWST , INHITE , INDELJ , INCAMB, INBETA 
601  F0RriAT(5I^) 
C 

C   READ  SECTIONAL  TWIST,  HEIGHT  AND  JET  DEFLECTION  DATA 
IF( INTWST  .EQ.  0)  GO  TO  85 

C   TWIST  DisTRIBUTioN  CARDS 

C 

CALL  CLRSCRN 

PRINT  * 

PRINT  *,'     SPANWISE  WING  TWIST  DISTRIBUTION  VALUES' 

PRINT  * 

PRINT  *,'     THE  SECTIONAL  TWIST  IS  THE  WING  TWIST  AT  THE  SECTION' 

PRINT  *,'     CENTERLINE  WITH  RESPECT  TO  THE  WING  REFERENCE  PLANE.' 

PRINT  * 

PRINT  *,'     POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE' 

PRINT  *,'     ANGLE-OF-ATTACK  (LEADING  EDGE  UP).' 

PRINT  * 

PRINT  *,'==>  ENTER  TWIST,  SECTIONAL  WING  TWIST,  IN  DEGREES. (R)' 

PRINT  * 

DO  80  K  =  1,NR0WS 

WRITE (6,12  )  K.NROWS 

READ(E,  *  )  TWIST(K, LCASE) 
12  FORMAT (IX,'   ENTER  SECTION  TWIST  FOR  SECTION  •,I2,'  OF  ',12,'  SECT 

+IONS. ' ,/) 
80  CONTINUE 

PRINT  * 
C  SUMMARY  REQD 
C 
C  WRITE  TO  DATA  FILE 

WRITE(LUN,  701  )  ( TWIST( K, LCASE  ),K=1,NR0WS  ) 
701  FORMAT (8F 10. 6) 
C 

85  IF( INHITE  .EQ.  0)  GO  TO  95 


C   LEADING  EDGE  VERTICAL  DISPLACEMENT  CARDS 
C- 


CALL  CLRSCRN 

PRINT  * 

PRINT  *,'  LEADING  EDGE  VERTICAL  DISPLACEMENT' 

PRINT  * 

PRINT  *,'    THIS  DATA  INDICATES  THE  VERTICAL  DISPLACEMENT  OF  THE ' 

PRINT  *,'     LEADING  EDGE  FROM  THE  WING  REFERENCE  PLANE.  VALUES' 

PRINT  *,'     MUST  BE  NORMALIZED  BY  THE  SECTIONAL  CHORD.' 

PRINT  * 

PRINT  *,'     DISPLACEMENT  MAY  BE  THE  RESULT  OF  DIHEDRAL,  TWIST,' 

PRINT  *,'     NONLINEAR  MOVEMENT  OF  A  LEADING  EDGE  DEVICE,  ETC.' 
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PRINT 
PRINT 
PRINT 
PRINT 


TRANSLATION  DUE  TO  ORDINARY  LINEAR  LEADING  AND' 
TRAILING  FLAP  DEFLECTIONS  AND  ANGLE  OF  ATTACK  ARE' 
ACCOUNTED  FOR  AUTOMATICALLY  BY  THE  PROGRAM. ' 


PRINT  *,'=  =  >  ENTER  HL,  NORMALIZED  LEADING  EDGE  DISPLACEMENT .( R ) ' 

PRINT  * 

DO  90  K  =  I,NROHS 

HRITE(b,22  )  K.NROWS 

READ(5,  *  )  HL(K,LCASE) 
22  FORMATtlX,"   ENTER  DISPLACEMENT  FOR  SECTION  ",I2,'  OF  ',12, 

+  •  SECTIONS. ■ ,/) 
90  CONTINUE 

PRINT  * 
SUMMARY  REQD 

WRITE  TO  DATA  FILE 

WRITE(LUN,  701  )  ( HL( K,LCASE  )  ,K=1 ,NROWS  ) 

95  IFdNDELJ  .EQ.  0)  GO  TO  105 


JET  DEFLECTION  CARDS 


CALL  CLRSCRN 

PRINT  * 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


JET  DEFLECTION' 

THIS  DATA  INDICATES  THE  SPANWISE  VARIATION  OF  JET' 
DEFLECTION  RELATIVE  TO  THE  TRAILING  EDGE.   THE  JET ' 
TURNING  ANGLE  IS  MEASURED  RELATIVE  TO  THE  MEAN  LINE ' 
OF  THE  TRAILING  EDGE.   VALUES  ARE  INPUT  WORKING' 
FROM  THE  RIGHTMOST  JET  TOWARDS  THE  CE^ERLINE .  ' 

A  DOWNWARD  DEFLECTION  IS  DEFINED  AS  POSITIVE.' 


:=>  ENTER  DJ,  THE  JET  TURNING  ANGLE,  IN  DEGREES. (R)' 

DO  100  K  =  l.NROWSJ 
WRITE(6,S2)  K,NROHSJ 
READ15,  *     )    DJ(K.LCASE) 
32  FORllATflX,'   ENTER  DEFLECTION  FOR  JET  SECTION  ',12,'  OF  ',12, 
+  '  JET  SECTIONS. ' ,/) 
100  CONTINUE 
PRINT  * 

SUMMARY  REQD 

WRITE  TO  DATA  FILE 

WRITElLUN,  701  )  ( DJ( K ,LCASE  )  ,K=1 ,NROWSJ  ) 

105  IFdNCAMS  .EO.  0)  GO  TO  160 
ItiPUl    CAMBER  TYPE  OF  EACH  SECTION 

WING  SECTION  CAMBER  TYPE  CARDS 


CALL  CLRSCRN 

PRINT  ¥: 

PRINT  »,  ' 
PRINT  * 
PRINT  *,  • 
PRINT  *f, 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT  *, 
PRINT  * 
PRirJT  *, 
PRINT 
NCT  = 


WING  SECTION  CAMBER  TYPES' 

THIS  DATA  IS  SIMILAR  TO  THE  WING  SECTION  TYPE  DATA.' 
IN  ORDER  FOR  SECTIONS  TO  BE  OF  THE  SANE  CAMBER  TYPE' 
THEY  MUST  BE  OF  THE  SAME  WING  SECTION  TYPE  (ICTYPE  )  ' 
AND  THE  CAM3ER  ANGLES  ASSOCIATED  WITH  EACH  ELEMENT' 
MUST  BE  THE  SAME.  BEGIN  WITH  A  TYPE  NUMBER  OF  1  AND' 
WORK  IN  SEQUENCE,  2 ,5 ,...( ASCENDING  ORDER  ) . ( I) ' 

A  SECTION  WITH  NO  CAMBER  HAS  A  TYPE  OF  0  (ZERO).' 

A  MAXIMUM  OF  10  CAMBER  TYPES  IS  ALLOWED.' 

:>  ENTER  ICT,  THE  CAMBER  TYPE  NUMBER  OF  EACH  SECTION.' 


DO  110  K  =  1,NR0WS 
WRITE!  6, "+2)  K.NROWS 
READ(5,  ^    )    ICT(K) 
DETERMir;E  NUMBER  OF  CAMBER  TYPES 
IFdCTlK  )  .EQ.  0)  GO  TO  110 
IF(ICT(K)  .GT.  NCT)  NCT  =  ICT(K) 
ICK  =  ICT(K  ) 
NI(ICK)  =  NW(K) 
IF(NCT  .GT.  8)  THEN 
WRITE! 6,^1)  NCT 
PRINT  *,  '     A  MAXIMUM  OF  10  CAMBER  TYPES  IS  ALLOWED.' 

PRINT      *,       '  *¥:¥r¥:^     WARNING     ^¥r***  ' 

PRINT  «,  '     YOU  MAY  ENTER  ONLY  ONE  MORE  DIFFERENT  TYPE, 
END  IF 
41  FORMAT! IX, 5X,29HNUMBER  OF  WING  CAMBER  TYPES  = ,13  ) 
<+2  FORMAT! IX,'   ENTER  CAMBER  TYPE  FOR  SECTION  ',12,'  OF  ',12, 
+'  SECTIONS.',/) 
110  CONTimE 


SUMMARY  REQD 

FILE 

)  (ICT(K),K=1,NR0WS) 

CAMBER  ANGLES  FOR  EACH  CAMBER  SECTION  TYPE 


WRITE  TO  DATA  FILE 
WRITE! LUN,  101 
101  FORMAT! 4012) 


CALL  CLRSCRN 
PRINT  * 
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CAMDER  ANGLES  FOR  THE  DOWNMASH  CONTROL  POINTS' 


PRINT  ^, 
PRINT  * 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  ^, 
PRINT  * 
PRim  *, 
PRINT  *y 
PRINT  * 
PRINT  *, 
PRINT  * 

READ  THE  CHORDWISE  CAMBER  ANGLES  FOR  EACH  CAMBER  TYPE 
DO  150  N  =  1,NCT 
NIN  =  NI(N) 
DO  125 


THE  CAMBER  ANGLE  FOR  THE  DOWNWASH  CONTROL  POINT  OF ' 
EACH  EVD  ELEriENT  IS  REQUIRED.   THE  DOHNWASH  CONTROL" 
POINT  IS  AR3ITRAPILY  CHOSEN  AS  HALFWAY  BETWEEN  ANY' 
TWO  ADJACENT  XB( EVD  BOUNDARY  I  POINTS,  INCLUDING  THE' 
TRAILING  EDGE. ' 

POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE' 
ANGLE-OF-ATTACK  (LEADING  EDGE  UP).' 

--  =  >   ENTER  AC,  THE  CAMBER  ANGLE,  IN  DEGREES.(R)' 


125  L  =  l.NIN 
WRITE(6,5^)  NCT 
WRITE! 6,55)  L.NIN 
READ(5,  *  )  AC{L,N) 
CONTINUE 


FOR  CAMBER  SECTION  TYPE  NUMBER  ',12) 

ENTER  CAMBER  ANGLE  FOR  EVD  ELEMENT  ',12,'  OF  ',12,/) 
LOCATED  AT  CHORDWISE  COORDINATE  =',F10.6) 
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150  CONTINUE 
52  FORMAT ( IX, ' 
55  FORMAT (IX, ' 
5^  FORMAT (IX, 

SUMMARY  REQD 

WRITE  TO  DATA  FILE 

DO  155  N  =  1,NCT 

NIN  =  NKN) 

WRITE(LUM,  701  )  ( AC( L ,N  )  ,L  =  1 ,NIN ) 
135  CONTINUE 

IF(NROWSJ  .EQ.  0)  GO  TO  160 


TRAILING  EDGE  CAMBER  ANGLE  DATA  CASE  WITH  JETS  AND  CAMBER 


CALL  CLRSCRN 
PRINT  * 
PRINT  *,  ' 
PRINT  *,  ' 
PRINT  * 
PRINT  *,  ' 
PRINT  *,     ' 
PRINT  ^,  ' 
PRINT  *, 
PRINT  *, 
PRINT  * 
PRINT  *, 
PRINT  ¥^, 
PRINT  * 
PRINT  *, 
PRINT  * 
READ  THE  TRAI 
DO  l<+0  K  = 

WRITE! 

WRITE! 

READ(S 
li+O    CONTINUE 

62  FORMAT  I  IX, 

63  FORMAT ( IX, 

SUMMARY  REQD 

WRITE  TO  DATA  FILE 

WRITE (LUN,  701  )  ( ACTE( K ) ,K=1 ,NROWSJ ) 

STOPPED  HERE  ( JAC  )  -  CASES  WITH  JETS  HAVE  NOT  BEEN  FINISHED. 

THE  HINGE  LOCATION,  TYPE  AND  TURNING  AfiGLE  DATA 

READ  THE  HINGE  LOCATION,  TYPE  AND  TURNIt^G  ANGLE  DATA 
160  IFdNBETA  -EQ.  0)  GO  TO  210 
170  READ! 5,  100  )  ( IHT( K  )  ,K  =  1 ,NROWS  ) 


TRAILING  EDGE  CAMBER  ANGLE  FOR  WINGS  WITH' 
JET  SHEETS  AND  CAMBER. ' 

THE  TRAILING  EDGE  DEFLECTION  ANGLE  DUE  TO  CAMBER- 
ONLY  IS  EtJTERED  HERE.   THESE  VALUES  ARE  USED  TO' 
DETERMINE  THE  TOTAL  JET  DEFLECTION  ANGLE  WITH' 
RESPECT  TO  THE  FREESTREAM.   VALUES  ARE  INPUT  WORKING' 
FROM  THE  RIGHTMOST  JET  TOWARDS  THE  CENTERLINE.' 

POSITIVE  VALUES  ARE  IN  THE  SAME  SENSE  AS  A  POSITIVE ' 
ANGLE-OF-ATTACK  (LEADING  EDGE  UP).' 

=  =  >  ENTER  ACTE,  TRAILING  EDGE  CAMBER  ANGLE ,( DEGREES  ).( R  ) ' 

LING  EDGE  CAMBER  ANGLE  FOR  EACH  JET  SECTION 

1;NRC!(SJ 
6,62  )  K 
6,65  ) 

*  )  ACTE(K) 

FOR  JET  SECTION  NUMBER  ',121 

ENTER  CAMBER  ANGLE  FOR  TRAILING  EDGE  ',/) 


NHT  =  0 
DO  180  K 
IF!IHT(K 
180  CONTINUE 
DO  200  N 


1,NR0WS 
.GT.  NHT)  NHT 

l.NHT 


IHT(K) 


READ(5,  190  1  (XHB(L,N),IFS( L,N),BET(L,N),L=1,4) 
190  FORMAT(4(F10.6,I1,F9.6)) 
200  CONTINUE 
C   170  WRITE(5,  100  )  ( IHT( K  )  ,K=1,NR0WS  ) 

210  RETURN 
C*^***if  ************»*************#**»***************»»****************** 
END 
SUBROUTINE  OUTKLCASE) 


THIS  SUBROUTINE  PRINTS  OUT  THE  GEOMETRIC  DATA  DERIVED  FROM  THE 
SECTIONAL  METHOD  INPUT 

COMMON/MATHEW/NCASES,ISYMM,IPRINT,JETFLG,IGTYPE,IHINGE 
COMMON/MARK/NRONS ,NROWSJ,NWT ,NJT ,NMAX,NW( ^0 ) ,NJ( 40 ) ,IW( 40  )  ,IJ( 40 ) 
COMMON  /LUKE/  TITLE(20) 

COMMON/JOHN/  AREA , SPAN, ARATIO,TR, SWEEP ,CREF,CMAC ,CBAR,XMC.XCG 
C0MM0N/GE0M1/Y( 40  )  ,CHORD( 40  ), DELTA! 40  )  ,XB( 600 ) ,XI( 600  )  ,DEL( 600 ) , 

1  D!40  ),KKI600),ITYPE!600 I 

COMMON/GEOM2/XLEAD(40),XTRAIL(40),TANLE(40),TANTE(40) 
C0MM0N/FCASE2/THIST( 40,10 ) .HL( 40 , 10 ) ,DJ( 40 ) ,ACTE( 40 ) , AC( 20 ,40 ) , 

1  XHB(4,40),BET(4,40  )  ,IFS( 4,40  )  ,ICT( 40  )  ,IHT( 40 ) ,NCT ,NHT 

C0MM0N/FCASE3/EPS( 600,10), BETA! 600 , 10 ) ,THETA( 40,10 ) ,THS( 40 , 10  ) 
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COMMON/INDAT A/ARE ,SPA ,CRE ,XM ,CMA ,XC ,NRO ,NC ,ISY ,IPR , JET ,IGT ,IHI 

C   PRINT  CASE  TITLE  AND  GENERAL  GEOMETRIC  PARAMETERS 
IF( LCASE  .GT.  1  )  GO  TO  faO 
10  WRITE! b,  20  (TITLE 
20  FORMAT(  1H1,39X,10(4H*^^**)/ 

1  <+0X,'40H*^   EVD   JET  -  WING   COMPUTER   PROGRAM   */ 

2  <+0X,10(<+H***^^)///20X,20A'+) 
CMA  =  ChAC  *  SPA  /  2.0 

30  WRITE! 6,  ^0  )  AREA, ARE , SPAN, SPA, CREF , ORE ,XMC,XM,CMAC , CMA ,ARATIO, 

1  ARATlO.XCG.XC 

40  FORMAT(lH0//5'+X,4KUSED,llX,5HINPUT  / 

1  41X,6HAREA  =,2Fi5.6  /  41X,6HSPAN  =,2F15.6  / 

2  41X,feHCREF  -,2F15.6  /  '+2X,5HXt1C  =,2F15.6  / 

3  41X,6HCMAC  -  .2F15.6  /  3W,8HARATI0  =,2F15.6  / 
<+        <+2X,5HXCG  =,^F15.6  I 

WRITE(6,  50  )  NR0W$,NR0,NCASES,NC,ISYMM,ISY,IPRINT,IPR,JETFL6,JET, 
1  IGTYPE,IGT,IHINGE,IHI,NWT,NJT,NMAX 

50  FORMATdHO/  48X,7HNRCWS  =,I3,7X,I3  /  47X,8KNCASES  =,I3,7X,I3  / 

1  48X,7HTr.VH!1  =,I3,7X,I3  /  47X,8HIPRINT  =,I3,7X,I5  / 

2  <+7X,SHJETFLG  =,I3,7X,I5  /  '+7X,8HIGTYPE  =,I3,7X,I3  / 

3  47X,8HIHINGE  =,I3,7X,I3  /// 

4  43X,25HNUr;EER  OF  WINS  ELEMENTS  =,I4  / 

5  43X,25KNU?13ER  OF  JET  ELEMENTS   =,I4  / 

6  42X,26HT0TAL  NUMBER  OF  ELEMENTS  =,I<+) 
60  J  =  0 

JJ  =  NWT 
C 
C   PRINT  FUNDAMENTAL  CASE  HEADER 

WRITE! 6,  70  )  LCASE 
70  FORMAT! IHI ,23X,1H* ,19( 4H****  )/ 

1  24X,5tH*   ELEMENT  GEOMETRY  DATA  AND  FUNDAMENTAL  CASE  DATA  FOR, 

2  17H  FUNDAMENTAL  CASE, 13, 3H   */24X ,1H*,191 ^H**** ) ) 
ILINES  =  3 

DO  260  K  =  l.NROWS 

C      PRINT    SECTIONAL    DATA 

WRITE!6,    80     )    K,Y(K),DELTAIK  ),XLEADIK),XTRAIL(K ),CHORD(K ),TANLE(K) 
80    FORMATdHO, IIH**^    SECTION  ,13  ,4H    »**,2X,3HY    =  ,F10  .  6  ,2X  ,7HDELTA    =, 

1  F10.6,2X,/HXLEAD    =  ,  FIO . 6 ,2X,8HXTRAIL    =  ,F10 . 6  ,2X,7HCH6rD    =,F10.6, 

2  2X,7HTANLE  =,F10.6  ) 
C 

C   PRINT  CHORDHISE  DATA  ON  WING 
NWK  =  NlilK  I 

WRITE! 6,  90  )  NWK , TWIST! K, LCASE 1 ,HL( K, LCASE ) ,THS( K , LCASE ) 
90  FORMAT!  1H0,21HWIN6  ELEMENTS    NW  =,I3,5X,  7HTWIST  =,F10.6,5X, 
1  'tHHL  =,F10.b,5X,  9HTHETA  S  =,F10.6) 

WRITE! 6,  100  )  IXBI J  +  L  1,L  =  1,NWK  I 
100  FORMAT!  IH  ,1<+X  .2HXB  ,  IDFll .  6  /  17X,10F11.6) 
IF!  LCASE  .I5T.  It  GO  TO  130 
WRITE!6,  110  )  !XI! J  +  L  ),L  =  1,NWK ) 
110  FORMAT! IH  ,14X,  2HXI , lOFll . 6/17X .lOFll . 6 ) 

WRITE!b,  1^0  1  !DEL! J+L),L=1,NWK) 
120  FORMATIlH  ,  13X,3HUEL .lOFll . 6/17X,10Fll . 6 ) 
150  IFIICTIK)  .EQ.  0)  GO  TO  ISO 

TPK  —    TPTfKI 

WRITE! 6,  140  )  1  AC! L ,ICK  )  ,L  =  1 ,NKK  1 
140  FORMATIlH  ,  lOX  ,6HCAM3ER  ,1i5f11  .  6/17X  ,  lOFll .  6  ) 
150  WRITE! 6,  IbO  )  I  EPS! J  +  L,LCASE  )  ,L  =  1 ,N!  IK  ) 
160  FORMATIlH  ,  13X ,3HEPS , lOFll . 6/17X , lOFll . 6 ) 

WRITE! b,  170  )  (BETA! J  +  L. LCASE  >.L  =  1, NWK  ) 
170  FORMATIlH  ,12X  ,4HBETA , lOrll . b/l7X, lOFll . 6 ) 

KRITEI6,  180  )  IITYPEI J  +  L  ),L  =  1,NWK  I 
180  FORMATIlH  , 12X,4HTYPE ,101 3X ,12 ,6X )/17X,lCI 3X,I2 ,6X ) ) 

J  =  J  +  \mK 

IL  =  1 

IF! NWK  .GT.  9  1  IL  =  2 

ILINES  =  ILINES  +  4  +  4*IL 

IF! LCASE  .EQ.  1)  ILINES  =  ILINES  +  2*IL 
C 
C   PRINT  CHORDWISE  DATA  ON  JET 

NJK  =  NJIK I 

IFINJK  .GT.  0 )  GO  TO  200 

WRITE! 6,  190  I 
190  FORMATIlH  ,8X,19HTHIS  ROW  HAS  NO  JET) 

ILINES  =  ILINES  +  1 

GO  TO  230 
200  WRITEIb,  210  I  NJK ,01 K  )  ,DJI K  )  ,ACTEI K ) ,THETA! K ,LCASE ) 
210  FORMAT! 1H0,1X,20HJET  ELEMENTS    NJ  =,I3,5X,3HD  = ,F10.6 ,5X,4HDJ  =, 
1    F10.6,5X,6HACTE  = ,F10 . b ,5X,7HTHETA  =,F10.6) 

WRITE! 6,  100  )  IXBI JJ  +  L  l,L  =  l,NJK) 

IF! LCASE  .GT.  1)  GO  TO  2^0 

WRITEI6,  110  )  IXI! JJ  +  L  l,L  =  l,NJK t 

WRITEI6,  120  )  IDELI JJ  +  L  ),L  =  i, NJK) 
220  WRITEI6,  170  )  !  BETA! JJ  +  L , LCASE  ) ,L  =  1 , NJK ) 

WRITEI6,  180  )  IITYPE! JJ+L), L=l, NJK) 

JJ  =  JJ  +  NJK 

IL  =  1 

IFINJK  .EQ.  10)  IL  =  2 

ILINES  =  ILINES  +  1  +  3  *  IL 

IFI LCASE  .EQ.  1)  ILINES  =  ILINES  ♦  2»IL 
230  IFIK  .EQ.  NROWS)  GO  TO  260 

NWKl  =  NWIK+1) 

IL  =  1 

IFINWKl  .GT.  9)  IL  =  2 

NEXT  =  4  +  4*IL 

IF! LCASE  .EQ.  1)  NEXT  =  NEXT  ♦  2«IL 

NJKl  =  NJIK+1) 

IL  =  1 

IFINJKl  .EQ.  10)  IL  =  2 

NEXT  =  NEXT  +  1 
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IF(NJK1  .EQ.  0)  GO  TO  240 

NEXT  =  NEXT  +  1  +  3*1 L 

IFdCASE  .EQ.  1)  NEXT  =  NEXT  +  2*IL 
240  IF( (55-ILINES)  .GE.  NEXT)  GO  TO  2bO 

WRITE(6,  250  ) 
250  FORriAT(  IHl  ) 

ILINES  =  1 
260  CCNTIt^UE 

RETURN 

END 

SUBROUTINE  INCOMP( NCASES,IR  ) 
C 

C   THIS  SUBROUTINE  READS  IN  THE  COMPOSITE  CASE  REQUIREMENTS 
C   HHICH  DEFINE  THE  FUNDAMENTAL  CASES  AND  THEIR  DEFLECTION  MAGNITUDE 
C   FOR  SUPERPOSITION  IN  UP  TO  24  COMBINATIONS 


C 


COMMON/COMPOS/FACTOR( 10 , 24  )  ,NCC 

COMMON/INDAT/LUN 

DIMENSION  FUNNY( 10 ) ,ND( 10 ) ,NFC( 10 ) 


C  COMPOSITE  CASE  REQUIREMENTS  CARDS 
C 

CALL  CLRSCRN 
PRINT  « 


PRINT  *,  •     COMPOSITE  CASES' 

PRINT  * 

THE  FOLLOWING  INFORMATION  SPECIFIES  HOW  THE  DATA ' 
FOR  FOR  THE  FUNDAMENTAL  CASES  INPUT  ON  THE  PREVIOUS' 
CARDS,  IS  TO  BE  COMBINED  TO  FORM  OR  MODEL  THE  WING' 
UNDER  STUDY.   A  MAXIMUM  OF  24  COMPOSITE  CASES  MAY' 
BE  R'QUESTED. ' 

YOU  ;  ILL  BE  ASKED  FOR  FUNDAMENTAL  CASE  NUMBERS  AND ' 
THE  MJLTIPLICATIVE  FACTOR  TO  BE  APPLIED  TO  EACH.' 


PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *:, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  * 
PRINT  *, 
PRINT  *, 
PRINT  * 
PRINT  *, 
PRirJT  i^, 
PRINT  ^, 
PRINT  ^ 


THE  FUNDAMENTAL  CASES  ARE  IDENTIFIED  IN  THE  SAME' 
SEQUENCE  AS  THEY  WERE  INPUT,  1,2,3...' 

IF  A  MULTIPLICATIVE  FACTOR  OF  1.5  IS  APPLIED  TO  A' 
A  FUNDAMENTAL  CASE  WITH  A  HINGE  DEFLECTION  OF  10' 
DEGREES,  THE  COMPOSITE  CASE  WILL  HAVE  15  DEGREES.' 


C 

C   READ  THE  COMPOSITE  CASE  DATA,  CONSISTING  OF  FUNDAMENTAL  CASE 

C   DEFLECTIONS,  IN  DEGREES 

NCC  =  0 
C  ENTER  THE  NUMBER  OF  COMPOSITE  CASES  TO  BE  INPUT 

PRINT  *,  '     HOW  MANY  COMPOSITE  CASES  WILL  YOU  BE  ENTERING?(I)' 
PRINT  *,     •  (FOR  NO  COMPOSITE  CASES  ENTER  ZERO.  )' 

10  READ(5,  *  1  NCC 

IF  (NCC  .EQ.  0)  GO  TO  100 
IF  (NCC  .GT.  24)  THEN 
WRITE(6,110) 

PRINT  *,  '       PLEASE  REENTER' 
GO  TO  10 
END  IF 

DO  15  I  =  1,NCC 
C  ENTER  THE  NUMBER  OF  FUNDAMENTAL  CASES  TO  BE  COMBINED  ON  THIS  CASE 
PRINT  *,  '     HOW  MANY  FUNDAMENTAL  CASES  WILL  BE  COMBINED' 
PRINT  *y     •  TO  MAKE  UP  THIS  COMPOSITE  CASE?  (MAXIMUM  OF  10)' 

20  READ(S,  *  )  NFCd  ) 
NFCI  =  NFCd  ) 
IF  (NFCI  .GT.  10)  THEN 
WRITE(6,120) 

PRINT  *,  '        PLEASE  REENTER' 
GO  TO  20 
END  IF 
C   READ  IN  THE  DATA  FOR  EACH  CARD 
DO  30  N  =  1,NFCI 
WRITE(6,32  )  I 
WRITE(6,33  )  N.NFCI 
35  READ(5,  *  I  N6(Nt 
C   CHECK  THE  VALIDITY  OF  THE  DATA 
IF(NDIN)  .GT.  NCASES)  THEN 
WRITE (6,71)  NCASES 
PRINT  *,     •  PLEASE  REENTER' 

GO  TO  35 
END  IF 
WRITE (6,44) 
READ(5,  *  )  FUNNY(N) 
PRINT  * 
30  CONTIh,|UE 
15  CONTINUE 

32  FORMATdX,'       FOR  COMPOSITE  CASE  ',12) 

33  FORMATdX,'   ENTER  FUNDAMENTAL  CASE  ',12,'  OF  ',12,'.', /I 

44  FORMATdX,'   ENTER  THE  MULTIPLICATIVE  FACTOR  FOR  THIS  CASE. ',12,/) 
71  FORMATdX, 5X, 'THE  FUNDAMENTAL  CASE  VALUE  CANNOT  BE  GREATER  THAN  ', 
112,/) 
C   TOO  MANY  COMPOSITE  CASES  HAVE  BEEN  REQUESTED.   REENTER. 

110  FORMAK 1X,5X,'A  MAXIMUM  OF  24  COMPOSITE  CASES  MAY  BE  INPUT.') 
120  FORMATdX, 5X, 'A  MAXIMUM  OF  10  FUNDAMENTAL  CASES  MAY  BE  INCLUDED' 
1/,1X,5X,'0N  ANY  ONE  COMPOSITE  CASE.') 

C  SUMMARY  GOES  HERE 

C 

C 

C   WRITE  DATA  TO  FILE 

DO    70    I    =    1,NCC 

NFCI    =   NFCd  ) 

KRITE(LUN,    40    )    ( ND( L ) ,FUNNY( L) ,L=1 ,NFCI) 


177 


40  FORMAT!  lOlBZ, 12, F6.'+)) 
70  CONTINUE 
C 

C   OUTPUT  A  9  CARD  AFTER  NCC  SETS  OF  DATA  HAVE  BEEN  INPUT 
100  WRITE( LUN,  102  ) 
102  FORMAT  I  '9    '  ) 
C 

IR  =  1 
RETURN 
C*****^^***r********)e****^if  ********************************************** 
END 

SUBROUTINE  BLOWIN(  JETFLCIR  ) 
C 

C   THIS  SUBROUTINE  READS  THE  SECTIONAL  JET  BLOWING  RATES 
C   CMU(K)  =  J  /  (Q  *  CHORDIK)) 


C 


COMMON/MARK/NRONS .NROWSJ ,NWT .NJT ,NMAX,NW( 40 ) .NJC+O ) ,IH(  40 ) ,IJ(  40 ) 
COHr,OrJ/JCASE/CMU(  40  )  ,CMUPI  40  )  ,CMUPP{  40  ) 
DltlEtJSIOrj    DCKU(40) 
COrinON/K-iDAT/LUN 

c 

IF(JETFLG  .NE.  01  GO  TO  50 
C   READ  THE  CMU  DATA  ONLY  FOR  THOSE  SECTIONS  WHICH  HAVE  A  JET 
READI5,  10,  END  =  C)0  )  (  DCMU(  K  )  ,K  =  1  ,NROWSJ  ) 
10  FORMAT! SFlO.b ) 

20    IFlDCMUd)    .LT.    800.0)    GO   TO   30 
IR    =    2 
RETURN 
C 

C   REARRANGE  THE  DATA  INTO  THE  PROPER  SEQUENCE 
30  KP  =  0 

DO  BO  K  =  IjNROWS 
40  CMUIKI  =0.00 

IF(NJ(K  )  .EQ.  0)  GO  TO  50 
KP  =  KP  +  1 
CMU(K  I  =  DCMU(KP) 

50  corniNUE 

IR  =  1 

RETURN 
C 

C   AN  END  OF  FILE  HAS  BEEN  READ.   THIS  RUN  IS  COMPLETELY  FINISHED. 
60  KRITE(6,  70  ) 
70  FORMAT! 1H1///41X,37HN0  MORE  CMU  CASES  HAVE  BEEN  REQUESTED) 

IR  =  3 

RETURN 

END 
C 
C********************************************»*******************»f****** 
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APPENDIX  E.     FIGLRES  GENERATED  USING  DISSPLA 
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PROGRAM  PANEL-  NACA  0012  AIRFOIL 
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Figure  26.      Program  PANEL-  Shape  Generated  Using  Airfoil  Coordinates  Data  File 

This  figure  was  generated  using  the  DISSPLA  portion  ofEASYPLOT  on  the  IBM 

mainframe  computer.    The  surface  coordinates  for  the  airfoil  were  input  to  the  PANEL 
program  using  an  input  data  file  containing  2S  surface  points. 
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PROGRAM  PANEL-  NACA  0012  AIRFOIL 

EQUATION"  GENERATED  SHAPE 

o 
o 

CS)  - 

d 

Pi. 

O 

O 
PJ  - 
C 
1 

c 



" -^-, 

_.___ 

_______ -^ 

1 

D.OOO 

0.1Z5              0^50              0.375              0.500              0.625              0.7&0               0.87i              1.000 

X/C  (CHORDHISE  LOCATION) 

Figure  27.        Program    PANEL-    Shape    Generated    L'sing    Internal    Equation   for 
NACA  0012 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  surRice  coordinates  for  the  airfoil  were  generated  by  the 
PANEL  program  using  the  internal  equation  for  NACA  XXXX  series  airfoils.  Twenty 
points  were  used  to  describe  the  surface.  Despite  using  fewer  points  to  define  the  sur- 
face, there  is  virtually  no  difference  between  this  plot  and  the  one  on  the  preceding  page 
which  used  actual  airfoil  surface  data. 
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Figure  28.       Program   PANEL-   Shape   Generated   Using   DATA  Statements  for 
NASA  LS(I)-0013 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 
mainframe  computer.  The  surface  coordinates  for  the  airfoil  were  input  to  the  PANEL 
program  using  the  DATA  statement  entr}'  method.  The  DATA  statements  for  the 
N.AS.A  LS(1 1-0013  withm  the  PANEL  program  contain  coordmates  for  2S  surface  lo- 
cations.  This  plot  is  nearly  identical  to  that  found  in  Ref  18. 
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Figure  29.       Program  PANEL-  Comparison  of  Shapes  Generated  for  NACA  0012 
andNASA  LS(1)-00I3 

This  figure  compares  the  shapes  of  the  NACA  0012  and  NASA  LS(1)-0013  airfoils. 
The  actual  surface  coordinates  were  used  for  this  plot.  Again,  this  plot  is  nearly  identical 
to  a  similar  plot  found  in  Ref  IS. 
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Figure  30.      Program  PANEL-Surface  Pressure  Distribution  for  NACA  0012 

This  figure  was  generated  using  the  DISSPLA  portion  of  EASYPLOT  on  the  IBM 

mainframe  computer.  The  pressure  distribution  is  for  the  NACA  0012  airfoil  defined 
by  an  input  data  file  containing  2S  surface  points  at  an  angle  of  attack  of  six  degrees. 
The  results  of  the  program  run  are  repeated  below. 


DATA  FILE:       PPRESS.DAT 
ANGLE  OF  ATTACK   IN  DEGREES  = 


6.  000 


CD  =  0. 00387 


CL  =  0.  70980 


CM  =-0.  17750 


CMC4  =-0.  00092 
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Fi"ure  31.      Program  PANEL-  Surface  Pressure  Distribution  for  NACA  0012  Gen- 
erated  by  the  Internal  Equation 

This  figure  was  generated  using  the  DISSPLA  portion  of  EAS'iTLOT  on  the  IBM 
mainframe  computer.  The  pressure  distribution  is  for  the  NACA  0012  airfoil  defined 
by  the  internal  equation  using  2S  surface  points,  at  an  angle  of  attack  of  six  degrees. 
The  results  of  the  program  run  are  repeated  below.  A  slight  difference  is  noted  between 
the  plots  and  the  values  obtained.  This  is  due  largely  to  the  difference  in  the  number 
of  data  points  used  and  the  spline  interpolation  used  by  the  plotting  routine. 


DATA  FILE:   PPRESS.DAT 

ANGLE  OF  ATTACK  IN  DEGREES  =    6.000 

CD  =  0.00721    CL  =  0.  72235    CM  =-0.  18377 


CMC4  =-0. 00398 
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Figure  32.      Program  PANEL-  Surface  Pressure  Distribution  for  NASA  LS(I)-0013 

This  figure  was  generated  using  the  DISSPLA  portion  ofEASYPLOT  on  the  IBM 
mainframe  computer.  The  pressure  distribution  is  for  the  NAS.-\  LSU)-0013  airfoil  de- 
fined by  a  sei  of  D.ATA  statements  containing  28  surface  points  at  an  angle  o[  attack 
of  SL\  degrees.   The  results  of  the  program  run  are  repeated  below. 


DATA  FILE:   PPRESS.DAT 
ANGLE  OF  ATTACK  IN  DEGREES  = 


6.  000 


CD  =  0. 00324 


CL  =  0.69366 


CM  =-0.  16505 


CMC4  =  0.00750 
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Figure  33.      Program  \'ORLAT-  Spanwise  Lift  Distribution  Using  Cosine  Spacing 

This  figure  was  generated  using  DISSPLA  and  running  the  PLOTSPAX  program 
on  the  IB.\I  mainframe  computer.  The  spanwise  Hft  distribution  is  shown  for  a  flat 
rectangular  wmg  of  aspect  ratio  2  at  an  angle  of  attack  of  six  degrees.  The  results  of  the 
VORLAT  program  run  are  repeated  below.  iThe  PLOTSPaW  program  is  located  on  the 
AERO  disk  of  the  IBM  mainframe.) 


**   COSINE  GRID  SPACING  ** 
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Figure  34.      Program  \  ORLAT-  Span^^ise  Lift  Distribution  Using  Uniform  Grid 

This  figure  was  generated  using  DISSPLA  and  running  the  PLOTSPAN  program 
on  the  IBM  mainframe  computer.  The  spanwise  lift  distribution  is  shown  for  a  fiat 
rectangular  wing  of  aspect  ratio  2  at  an  angle  of  attack  of  si.\  degrees.  The  results  of  the 
VORLAT  program  run  are  repeated  below. 

**   UNIFORM  GRID  SPACING  **  -  -' 

NX=  5  NY=  10   ASPECT  RATIO  =  2. 00   ANGLE  OF  ATTACK  =  6.  00 
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